Changeset 12160


Ignore:
Timestamp:
May 29, 2009, 11:02:15 PM (10 years ago)
Author:
gz
Message:

Missed one

File:
1 edited

Legend:

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

    r12159 r12160  
    569569    (setq *nx-proclaimed-ftypes* (make-hash-table :test #'eq)))
    570570  ;; Check the type.  This will signal program-error's in case of invalid types, let it.
    571   ;; TODO: should also check it for being a function type.
    572   (handler-case (specifier-type ftype)
    573     (parse-unknown-type (c)
    574       (warn "Undefined type ~s in declaration specifier ~s"
    575             (parse-unknown-type-specifier c) `(ftype ,ftype ,@names))))
     571  ;; Do not signal anything about unknown types though -- it should be ok to have forward
     572  ;; references here, before anybody needs the info.
     573  (specifier-type ftype)
    576574  (dolist (name names)
    577575    (setf (gethash (maybe-setf-function-name name) *nx-proclaimed-ftypes*) ftype)))
Note: See TracChangeset for help on using the changeset viewer.