Changeset 10604


Ignore:
Timestamp:
Sep 2, 2008, 6:38:17 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/gz/level-1/l1-utils.lisp

    r9844 r10604  
    677677    ;(function (proclaim-ftype (cons 'function (cddr spec)) (cadr spec)))
    678678    (t (unless (memq (%car spec) *nx-known-declarations*) ;not really right...
    679          (if (memq (%car spec) *cl-types*)
     679         ;; Any type name is now (ANSI CL) a valid declaration.
     680         (if (and (symbolp (%car spec))
     681                  (type-specifier-p (%car spec)))
    680682           (apply #'proclaim-type spec)
    681683           (warn "Unknown declaration specifier(s) in ~S" spec))))))
Note: See TracChangeset for help on using the changeset viewer.