g000001
2012-08-29 13:29:01
[その他]
[LISP]doしてそこでdoを使うんだ
投稿者からのアピールポイント
なぜそこで do を使う
(unless (and (symbolp a) (setq pl (symbol-plist a)) ) (error "Not a function name"))
or
(cond ((not (and (symbolp a) (setq pl (symbol-plist a)) )) (error "Not a function name")))
or
(if (not (and (symbolp a) (setq pl (symbol-plist a)) )) (error "Not a function name"))
じゃ駄目だったんですかね
(defun foo (a &aux pl fun)
(do ()
((and (symbolp a)
(setq pl (getl a '(SUBR LSUBR MACRO EXPR))))
() )
(setq a (error "Not a function name")))
...)
コメント
まだコメントがありません。最初にコメントを残しませんか？