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

Diff of /slime/swank.lisp

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

revision 1.305 by heller, Wed Jun 1 12:41:02 2005 UTC revision 1.306 by heller, Fri Jun 10 17:54:22 2005 UTC
# Line 2953  that symbols accessible in the current p Line 2953  that symbols accessible in the current p
2953          (setf (gethash regex-string regex-hash)          (setf (gethash regex-string regex-hash)
2954                (if (zerop (length regex-string))                (if (zerop (length regex-string))
2955                    (lambda (s) (check-type s string) t)                    (lambda (s) (check-type s string) t)
2956                    (compile nil (nregex:regex-compile regex-string)))))))                    (compile nil (slime-nregex:regex-compile regex-string)))))))
2957    
2958  (defun apropos-matcher (string case-sensitive package external-only)  (defun apropos-matcher (string case-sensitive package external-only)
2959    (let* ((case-modifier (if case-sensitive #'string #'string-upcase))    (let* ((case-modifier (if case-sensitive #'string #'string-upcase))

Legend:
Removed from v.1.305  
changed lines
  Added in v.1.306

  ViewVC Help
Powered by ViewVC 1.1.5