Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv26086/Apps/Listener

Modified Files: dev-commands.lisp Log Message: (x-specializer-direct-generic-functions, count-internal-symbols, count-external-symbols): Add CLISP support.

Date: Mon Dec 20 16:44:47 2004 Author: bhaible

Index: mcclim/Apps/Listener/dev-commands.lisp diff -u mcclim/Apps/Listener/dev-commands.lisp:1.26 mcclim/Apps/Listener/dev-commands.lisp:1.27 --- mcclim/Apps/Listener/dev-commands.lisp:1.26 Mon Oct 18 08:30:37 2004 +++ mcclim/Apps/Listener/dev-commands.lisp Mon Dec 20 16:44:47 2004 @@ -617,9 +617,10 @@ (defun x-specializer-direct-generic-functions (specializer) ;; FIXME - move to CLIM-MOP #+PCL (pcl::specializer-direct-generic-functions specializer) #+SBCL (sb-pcl::specializer-direct-generic-functions specializer) + #+clisp (clos:specializer-direct-generic-functions specializer) #+openmcl-partial-mop (openmcl-mop:specializer-direct-generic-functions specializer) - #-(or PCL SBCL openmcl-partial-mop) + #-(or PCL SBCL clisp openmcl-partial-mop) (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this."))

(defun class-funcs (class) @@ -890,7 +891,8 @@ ;; hash table capacity #+cmu (values (lisp::internal-symbol-count package)) #+sbcl (values (sb-int:package-internal-symbol-count package)) - #-(or cmu sbcl) (portable-internal-symbol-count package)) + #+clisp (svref (sys::%record-ref *package* 1) 2) + #-(or cmu sbcl clisp) (portable-internal-symbol-count package))

(defun portable-external-symbol-count (package) (let ((n 0)) @@ -903,7 +905,8 @@ "Return the number of external symbols in PACKAGE." #+cmu (values (lisp::external-symbol-count package)) #+sbcl (values (sb-int:package-external-symbol-count package)) - #-(or cmu sbcl) (portable-external-symbol-count package)) + #+clisp (svref (sys::%record-ref *package* 0) 2) + #-(or cmu sbcl clisp) (portable-external-symbol-count package))

(defun package-grapher (stream package inferior-fun) "Draw package hierarchy graphs for `Show Package Users' and `Show Used Packages'."