Changeset 10319

Timestamp:

Aug 4, 2008, 10:47:13 AM (11 years ago)

Author:

gb

Message:

Compiler-macro on REGISTER-ISTRUCT-CELL.

File:

• trunk/source/compiler/optimizers.lisp (modified) (1 diff)

trunk/source/compiler/optimizers.lisp

@@ -2087 +2087 @@
         (and (integerp ,val) (not (< ,val 0)))))))
 
+(define-compiler-macro register-istruct-cell (&whole w arg)
+  (if (and (quoted-form-p arg)
+           (cadr arg)
+           (typep (cadr arg) 'symbol))
+    `',(register-istruct-cell (cadr arg))
+    w))
+
+
+
 (provide "OPTIMIZERS")