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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri May  8 14:58:03 2009
New Revision: 11841

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

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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Fri May  8 14:58:03 2009
@@ -83,12 +83,7 @@
   ;; whether or not references to name appear in the file) and that
   ;; 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))
 
 (declaim (ftype (function (t) t) note-toplevel-form))