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

Diff of /slime/swank.lisp

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

revision 1.750 by nsiivola, Tue Jun 21 11:24:01 2011 UTC revision 1.751 by heller, Mon Aug 8 12:31:01 2011 UTC
# Line 3263  Include the nicknames if NICKNAMES is tr Line 3263  Include the nicknames if NICKNAMES is tr
3263    (let ((fname (from-string fname-string)))    (let ((fname (from-string fname-string)))
3264      (format nil "~S" (fmakunbound fname))))      (format nil "~S" (fmakunbound fname))))
3265    
3266    (defslimefun unintern-symbol (name package)
3267      (let ((pkg (guess-package package)))
3268        (cond ((not pkg) (format nil "No such package: ~s" package))
3269              (t
3270               (multiple-value-bind (sym found) (parse-symbol name pkg)
3271                 (case found
3272                   ((nil) (format nil "~s not in package ~s" name package))
3273                   (t
3274                    (unintern sym pkg)
3275                    (format nil "Uninterned symbol: ~s" sym))))))))
3276    
3277    
3278  ;;;; Profiling  ;;;; Profiling
3279    

Legend:
Removed from v.1.750  
changed lines
  Added in v.1.751

  ViewVC Help
Powered by ViewVC 1.1.5