[armedbear-cvs] r14163 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Oct  3 15:01:47 2012
New Revision: 14163

Log:
Fix LML load regression.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Wed Oct  3 14:28:11 2012	(r14162)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Wed Oct  3 15:01:47 2012	(r14163)
@@ -287,7 +287,8 @@
 
 (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*
             (append  *toplevel-exports* (if (listp sym-or-syms)