Changeset 13788

Timestamp:

Jun 6, 2010, 8:52:34 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

In the DEFSTRUCT macro, define constructors later so that
something like

(defstruct foo

(a nil :type (or null foo)))

works without warning about "unknown or invalid type FOO".

File:

• trunk/source/lib/defstruct-lds.lisp (modified) (2 diffs)

trunk/source/lib/defstruct-lds.lisp

@@ -249 +249 @@
        (remove-structure-defs  ',struct-name) ; lose any previous defs
         ,.(defstruct-slot-defs sd refnames env)
-        ,.(if constructor (list (defstruct-constructor sd constructor)))
-        ,.(defstruct-boa-constructors sd boa-constructors)
         ,.(if copier (defstruct-copier sd copier env))
         ,.(if predicate (defstruct-predicate sd named predicate env))
@@ -264 +262 @@
          ,.(if documentation (list documentation)))
         ,.(%defstruct-compile sd refnames env)
+        ,.(defstruct-boa-constructors sd boa-constructors)
+        ,.(if constructor (list (defstruct-constructor sd constructor)))
        ;; Wait until slot accessors are defined, to avoid
        ;; undefined function warnings in the print function/method.