Changeset 11841

Timestamp:

05/08/09 18:58:03 (14 years ago)

Author:

ehuelsmann

Message:

Simplify PROCESS-DEFCONSTANT;
the only thing the code we're removing was doing is prevent a #. reader macro
on the dumped third list element.

File:

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

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

@@ -84 +84 @@
   ;; it always evaluates to the same value."
   (eval form)
-  (cond ((structure-object-p (third form))
-         (multiple-value-bind (creation-form initialization-form)
-             (make-load-form (third form))
-           (dump-form (list 'DEFCONSTANT (second form) creation-form) stream)))
-        (t
-         (dump-form form stream)))
+  (dump-form form stream)
   (%stream-terpri stream))