Changeset 119

Timestamp:

Dec 12, 2003, 3:30:18 PM (21 years ago)

Author:

Gary Byers

Message:

STRUCTURE isn't a type-specifier; use STRUCTURE-OBJECT instead.

File:

• trunk/ccl/lib/defstruct.lisp (modified) (1 diff)

trunk/ccl/lib/defstruct.lisp

@@ -81 +81 @@
 (defun struct-ref (struct offset)
   (if (structurep struct) (uvref struct offset)
-      (report-bad-arg struct 'structure)))
+      (report-bad-arg struct 'structure-object)))
 
 (defun struct-set (struct offset value)
   (if (structurep struct) (uvset struct offset value)
-      (report-bad-arg struct 'structure)))
+      (report-bad-arg struct 'structure-object)))
 
 (defsetf struct-ref struct-set)