[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv27398

Modified Files:
	swank-sbcl.lisp 
Log Message:
(profile-package): Add implementation for SBCL.
Date: Mon Jan 10 20:33:30 2005
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.115 slime/swank-sbcl.lisp:1.116
--- slime/swank-sbcl.lisp:1.115	Mon Nov 29 18:35:03 2004
+++ slime/swank-sbcl.lisp	Mon Jan 10 20:33:29 2005
@@ -158,8 +158,6 @@
 
 ;;; Utilities
 
-(defvar *swank-debugger-stack-frame*)
-
 (defimplementation arglist ((fname t))
   (sb-introspect:function-arglist fname))
 
@@ -647,6 +645,10 @@
 (defimplementation profiled-functions ()
   (sb-profile:profile))
 
+(defimplementation profile-package (package callers methods)
+  (declare (ignore callers methods))
+  (eval `(sb-profile:profile ,(package-name (find-package package)))))
+
 
 ;;;; Inspector
 
@@ -773,11 +775,8 @@
 	    (ecase (first feature)
 	      (:or  (some  #'subfeature-in-list-p (rest feature)))
 	      (:and (every #'subfeature-in-list-p (rest feature)))
-	      (:not (let ((rest (cdr feature)))
-		      (if (or (null (car rest)) (cdr rest))
-			(error "wrong number of terms in compound feature ~S"
-			       feature)
-			(not (subfeature-in-list-p (second feature)))))))))))
+	      (:not (destructuring-bind (e) (cdr feature)
+                      (not (subfeature-in-list-p e)))))))))
 
 (defun shebang-reader (stream sub-character infix-parameter)
   (declare (ignore sub-character))