Changeset 7843

Timestamp:

Dec 7, 2007, 10:42:26 AM (17 years ago)

Author:

Gary Byers

Message:

Uh, check that symbol is quoted in (APPLY #'MAKE-INSTANCE 'name ...)

File:

• branches/working-0711/ccl/compiler/optimizers.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/optimizers.lisp

@@ -330 +330 @@
            (eq (cadr fn) 'make-instance)
            (consp arg0)
+           (eq (car arg0) 'quote)
            (consp (cdr arg0))
            (symbolp (cadr arg0)))