Plaster
New
List
Login
common-lisp
default
anonymous
2021.02.09 19:33:43
(defun interesting-symbols-in-package (interesting-predicate &optional (package *package*)) (let ((symbols nil) (package (find-package package))) (do-symbols (sym package) (when (and (funcall interesting-predicate sym) (eq package (symbol-package sym))) (push sym symbols))) symbols)) (defun interesting-symbol-p (symbol) (or (fboundp symbol) (find-class symbol nil))) (dolist (symbol (sort (interesting-symbols-in-package 'interesting-symbol-p) #'string<)) (format t "#:~A~%" (string-downcase symbol)))
Raw
Annotate
Repaste
Edit