(let* ((pkg (symbol-package symbol))
(exportp (member symbol (list-exported-symbols pkg))))
(format nil "~(~:[~A:~:[:~;~]~;~2*~]~A~)"
(let* ((pkg (symbol-package symbol))
(exportp (member symbol (list-exported-symbols pkg))))
(format nil "~(~:[~A:~:[:~;~]~;~2*~]~A~)"