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

Diff of /slime/swank-lispworks.lisp

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

revision 1.70 by eweitz, Wed May 4 08:39:14 2005 UTC revision 1.71 by eweitz, Wed May 4 23:15:43 2005 UTC
# Line 528  Return NIL if the symbol is unbound." Line 528  Return NIL if the symbol is unbound."
528        (make-dspec-progenitor-location dspec (or location filename))        (make-dspec-progenitor-location dspec (or location filename))
529        condition))))        condition))))
530    
531    (defun unmangle-unfun (symbol)
532      "Converts symbols like 'SETF::|\"CL-USER\" \"GET\"| to
533    function names like \(SETF GET)."
534      (or (and (eq (symbol-package symbol)
535                   (load-time-value (find-package :setf)))
536               (let ((nregex::*regex-groupings* 0)
537                     (nregex::*regex-groups* (make-array 10))
538                     (symbol-name (symbol-name symbol)))
539                 (and (funcall (load-time-value
540                                 (swank::compiled-regex "^\"(.+)\" \"(.+)\"$"))
541                               symbol-name)
542                      (list 'setf
543                            (intern (apply #'subseq symbol-name
544                                           (aref nregex::*regex-groups* 2))
545                                    (find-package
546                                     (apply #'subseq symbol-name
547                                            (aref nregex::*regex-groups* 1))))))))
548          symbol))
549    
550  (defun signal-undefined-functions (htab &optional filename)  (defun signal-undefined-functions (htab &optional filename)
551    (maphash (lambda (unfun dspecs)    (maphash (lambda (unfun dspecs)
552               (dolist (dspec dspecs)               (dolist (dspec dspecs)
553                 (signal-compiler-condition                 (signal-compiler-condition
554                  (format nil "Undefined function ~A" unfun)                  (format nil "Undefined function ~A" (unmangle-unfun unfun))
555                  (make-dspec-progenitor-location dspec                  (make-dspec-progenitor-location dspec
556                                                  (or filename                                                  (or filename
557                                                      (gethash (list unfun dspec)                                                      (gethash (list unfun dspec)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5