20 lines
494 B
Common Lisp
20 lines
494 B
Common Lisp
;;; cl-scopes/scratch - interactive testing
|
|
|
|
(asdf:load-system :scopes)
|
|
|
|
(in-package :cl-user)
|
|
(ext:add-package-local-nickname :scf :scopes/forge)
|
|
(ext:add-package-local-nickname :sctf :scopes/test-forge)
|
|
|
|
(scopes/test-forge:run)
|
|
|
|
|
|
;;; real scratch area
|
|
|
|
(defun classes ()
|
|
(let ((r nil))
|
|
(maphash #'(lambda (k v)
|
|
(setf r (cons k r))) si:*class-name-hash-table*)
|
|
(sort r #'(lambda (x y)
|
|
(string<= (package-name (symbol-package x))
|
|
(package-name (symbol-package y)))))))
|