/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.115 by heller, Mon Nov 29 17:35:03 2004 UTC revision 1.116 by heller, Mon Jan 10 19:33:29 2005 UTC
# Line 158  Line 158 
158    
159  ;;; Utilities  ;;; Utilities
160    
 (defvar *swank-debugger-stack-frame*)  
   
161  (defimplementation arglist ((fname t))  (defimplementation arglist ((fname t))
162    (sb-introspect:function-arglist fname))    (sb-introspect:function-arglist fname))
163    
# Line 647  stack." Line 645  stack."
645  (defimplementation profiled-functions ()  (defimplementation profiled-functions ()
646    (sb-profile:profile))    (sb-profile:profile))
647    
648    (defimplementation profile-package (package callers methods)
649      (declare (ignore callers methods))
650      (eval `(sb-profile:profile ,(package-name (find-package package)))))
651    
652    
653  ;;;; Inspector  ;;;; Inspector
654    
# Line 773  stack." Line 775  stack."
775              (ecase (first feature)              (ecase (first feature)
776                (:or  (some  #'subfeature-in-list-p (rest feature)))                (:or  (some  #'subfeature-in-list-p (rest feature)))
777                (:and (every #'subfeature-in-list-p (rest feature)))                (:and (every #'subfeature-in-list-p (rest feature)))
778                (:not (let ((rest (cdr feature)))                (:not (destructuring-bind (e) (cdr feature)
779                        (if (or (null (car rest)) (cdr rest))                        (not (subfeature-in-list-p e)))))))))
                         (error "wrong number of terms in compound feature ~S"  
                                feature)  
                         (not (subfeature-in-list-p (second feature)))))))))))  
780    
781  (defun shebang-reader (stream sub-character infix-parameter)  (defun shebang-reader (stream sub-character infix-parameter)
782    (declare (ignore sub-character))    (declare (ignore sub-character))

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

  ViewVC Help
Powered by ViewVC 1.1.5