Changeset 10606


Ignore:
Timestamp:
Sep 2, 2008, 6:48:10 PM (11 years ago)
Author:
gz
Message:

allow any (globally-known) type name as declaration identifier in proclaim

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-utils.lisp

    r9847 r10606  
    534534    ;(function (proclaim-ftype (cons 'function (cddr spec)) (cadr spec)))
    535535    (t (unless (memq (%car spec) *nx-known-declarations*) ;not really right...
    536          (if (memq (%car spec) *cl-types*)
     536         ;; Any type name is now (ANSI CL) a valid declaration.
     537         (if (and (symbolp (%car spec))
     538                  (type-specifier-p (%car spec)))
    537539           (apply #'proclaim-type spec)
    538540           (warn "Unknown declaration specifier(s) in ~S" spec))))))
Note: See TracChangeset for help on using the changeset viewer.