From: David Vázquez <davazp@gmail.com>
Date: Sat, 4 May 2013 14:54:25 +0000 (+0100)
Subject: Add clarifing comment
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fc970a48c4326a2309ad0efd0b1c557fe25c7413;p=jscl.git

Add clarifing comment
---

diff --git a/src/print.lisp b/src/print.lisp
index 5d713a5..1544091 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -98,24 +98,27 @@
   (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) *package*)
-           (let ((package (symbol-package form))
-                 (name (symbol-name form)))
-             (concat (cond
-                       ((null package) "#")
-                       ((eq package (find-package "KEYWORD")) "")
-                       (t (package-name package)))
-                     ":"
-                     (if (and package
-                              (eq (second (multiple-value-list
-                                              (find-symbol name package)))
-                                  :internal))
-                         ":"
-                         "")
-                     (escape-token name package))))))
+     ;; Check if the symbol is accesible from the current package. It
+     ;; is true even if the symbol's home package is not the current
+     ;; package, because it could be inherited.
+     (if (eq form (find-symbol (symbol-name form)))
+         (escape-token (symbol-name form) *package*)
+         ;; Symbol is not accesible from *PACKAGE*, so let us prefix
+         ;; the symbol with the optional package or uninterned mark.
+         (let ((package (symbol-package form))
+               (name (symbol-name form)))
+           (concat (cond
+                     ((null package) "#")
+                     ((eq package (find-package "KEYWORD")) "")
+                     (t (package-name package)))
+                   ":"
+                   (if (and package
+                            (eq (second (multiple-value-list
+                                         (find-symbol name package)))
+                                :internal))
+                       ":"
+                       "")
+                   (escape-token name package)))))
     ((integerp form) (integer-to-string form))
     ((floatp form) (float-to-string form))
     ((characterp form)