Changeset 14860
- Timestamp:
- 09/04/16 07:01:07 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/apropos.lisp
r12934 r14860 35 35 36 36 37 (defun apropos-list (string-designator &optional package-designator) 37 (defun apropos-list (string-designator &optional package-designator 38 external-only) 38 39 (if package-designator 39 40 (let ((package (find-package package-designator)) … … 44 45 (when (search string (symbol-name symbol) :test #'char-equal) 45 46 (push symbol result))) 46 (dolist (symbol (package-internal-symbols package)) 47 (declare (type symbol symbol)) 48 (when (search string (symbol-name symbol) :test #'char-equal) 49 (push symbol result))) 47 (unless external-only 48 (dolist (symbol (package-internal-symbols package)) 49 (declare (type symbol symbol)) 50 (when (search string (symbol-name symbol) :test #'char-equal) 51 (push symbol result)))) 50 52 result) 51 53 (mapcan (lambda (package) 52 (apropos-list string-designator package ))54 (apropos-list string-designator package external-only)) 53 55 (list-all-packages)))) 54 56 55 (defun apropos (string-designator &optional package-designator )57 (defun apropos (string-designator &optional package-designator external-only) 56 58 (dolist (symbol (remove-duplicates (apropos-list string-designator 57 package-designator))) 59 package-designator 60 external-only))) 58 61 (fresh-line) 59 62 (prin1 symbol)
Note: See TracChangeset
for help on using the changeset viewer.