Changeset 6297

Timestamp:

Apr 18, 2007, 4:24:09 AM (18 years ago)

Author:

Gary Byers

Message:

Accept (name (:label n)) as a vinsn temporary.

File:

• branches/x8664-call/ccl/compiler/X86/x86-backend.lisp (modified) (1 diff)

branches/x8664-call/ccl/compiler/X86/x86-backend.lisp

@@ -138 +138 @@
                           (assoc (cadr x) *spec-class-storage-class-alist* :test #'eq)
                           (eq (cadr x) :label)
+                          (and (consp (cadr x)) (eq (caadr x) :label) (consp (cdadr x)) (null (cddadr x)))
                           (and (consp (cadr x))
                                (or