Changeset 14163

Timestamp:

10/03/12 22:01:47 (11 years ago)

Author:

ehuelsmann

Message:

Fix LML load regression.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -288 +288 @@
 (declaim (ftype (function (t t t) t) process-toplevel-export))
 (defun process-toplevel-export (form stream compile-time-too)
-  (when (eq (car (second form)) 'QUOTE) ;; constant export list
+  (when (and (listp (second form))
+             (eq (car (second form)) 'QUOTE)) ;; constant export list
     (let ((sym-or-syms (second (second form))))
       (setf *toplevel-exports*