[xyzzy:05919] お教えください（ Lisp について）

[ANS-HOME <ans-home@xxxxxxxxxxxxx>]

毎度お世話になります。
Formatの勉強中なんですが、以下のようにした所 package-name が定義されていない
と文句をいわれます。尚、構文＆formatの文はむちゃくちゃかも？勉強中ということで・・・(汗)

(defun print-symbol (S)
      (insert
	(format nil "~& ■ ~S~% Type : ~A ~% Package : ~A~5%"
		sym
		(cond ((fboundp S) "Function" " ")
		      ((boundp S) "Variable" " ")
		      ((macro-function S) "Macro" " "))
		(pakage-name (symbol-package S))
	))
  )
)

(do-all-symbols (sb)
  (if (and (equal "editor" (package-name (symbol-package sb)))(fboundp sb))
      (print-symbol sb)))

よろしくお願いします。

------------------------------------------------------------------------
ANS
中村　彰宏　　　
Email  ans-home@xxxxxxxxxxxxx