Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;; read documentation
- (defun doc(huh)
- ; omit 'method-combination it keeps setting off clisp debugger
- (dolist (x '(compiler-macro function setf structure t type variable))
- (let ((y (documentation huh x)))
- (if y (print y)))))
- ;;; examples
- (defun hi() "test function" "Hello, World!")
- (defvar xyz "test variable" 123)
- ;;; test
- (doc 'hi)
- (doc 'xyz)
Add Comment
Please, Sign In to add comment