From 4287e80f214812778b3923364918ce3c01c94957 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 4 May 2013 12:31:13 +0100 Subject: [PATCH] Fix failing test --- src/print.lisp | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) diff --git a/src/print.lisp b/src/print.lisp index 310754e..39ea95e 100644 --- a/src/print.lisp +++ b/src/print.lisp @@ -94,20 +94,21 @@ (cond ((null form) "NIL") ((symbolp form) - (multiple-value-bind (found-symbol status) - (find-symbol (symbol-name form)) - (if (eq found-symbol form) - (escape-token (symbol-name form) (not (eq *package* *js-package*))) - (let ((package (symbol-package form)) - (name (symbol-name form))) - (concat (cond - ((null package) "#") - ((eq package (find-package "KEYWORD")) "") - (t (escape-token (package-name package)))) - ":" - (if (or (null package) (eq :external (second (multiple-value-list (find-symbol name package))))) - "" ":") - (escape-token name package)))))) + (let ((name (symbol-name form)) + (package (symbol-package form))) + (if (eq package *package*) + (escape-token (symbol-name form) (not (eq package *js-package*))) + (concat (cond + ((null package) "#") + ((eq package (find-package "KEYWORD")) "") + (t (escape-token (package-name package) t))) + ":" + (if (or (null package) + (multiple-value-bind (_ status) + (find-symbol name package) + (eq status :external))) + "" ":") + (escape-token name (not (eq (symbol-package form) *js-package*))))))) ((integerp form) (integer-to-string form)) ((floatp form) (float-to-string form)) ((characterp form) -- 1.7.10.4