Revert "Simplify literal object dumping"

[jscl.git] / src / compiler.lisp

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 4d1cdbd..ee4514c 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -527,7 +527,7 @@
     output))
 
 
-(defvar *literal-table* nil)
+(defvar *literal-symbols* nil)
 (defvar *literal-counter* 0)
 
 (defun genlit ()
@@ -578,6 +578,7 @@
               (toplevel-compilation (code "var " v " = " c))
               v)))))))
 
+
 (define-compilation quote (sexp)
   (literal sexp))