bugfix for reading uninterned symbols in repl
authorAndrea Griffini <agriff@tin.it>
Fri, 3 May 2013 21:34:20 +0000 (23:34 +0200)
committerAndrea Griffini <agriff@tin.it>
Fri, 3 May 2013 21:34:42 +0000 (23:34 +0200)
src/compiler.lisp

index aa2f821..e870dce 100644 (file)
   #+jscl
   (let ((package (symbol-package symbol)))
     (if (null package)
-        (code "{name: " (dump-symbol (symbol-name symbol)) "}")
+        (code "{name: " (dump-string (symbol-name symbol)) "}")
         (ls-compile `(intern ,(symbol-name symbol) ,(package-name package))))))
 
 (defun dump-cons (cons)