[armedbear-cvs] r14163 - trunk/abcl/src/org/armedbear/lisp
ehuelsmann at common-lisp.net
ehuelsmann at common-lisp.net
Wed Oct 3 22:01:47 UTC 2012
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)
More information about the armedbear-cvs
mailing list