Changeset 14163


Ignore:
Timestamp:
10/03/12 22:01:47 (9 years ago)
Author:
ehuelsmann
Message:

Fix LML load regression.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r14133 r14163  
    288288(declaim (ftype (function (t t t) t) process-toplevel-export))
    289289(defun process-toplevel-export (form stream compile-time-too)
    290   (when (eq (car (second form)) 'QUOTE) ;; constant export list
     290  (when (and (listp (second form))
     291             (eq (car (second form)) 'QUOTE)) ;; constant export list
    291292    (let ((sym-or-syms (second (second form))))
    292293      (setf *toplevel-exports*
Note: See TracChangeset for help on using the changeset viewer.