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

Diff of /slime/swank-cmucl.lisp

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

revision 1.30 by heller, Sun Nov 30 08:09:44 2003 UTC revision 1.31 by heller, Mon Dec 1 22:30:03 2003 UTC
# Line 233  the error-context redundant." Line 233  the error-context redundant."
233      (format nil "~@[--> ~{~<~%--> ~1:;~A~> ~}~%~]~@[~{==>~%~A~^~%~}~]~A"      (format nil "~@[--> ~{~<~%--> ~1:;~A~> ~}~%~]~@[~{==>~%~A~^~%~}~]~A"
234              enclosing source condition)))              enclosing source condition)))
235    
236    
237  (defun compiler-note-location (context)  (defun compiler-note-location (context)
238    (cond (context    (cond (context
239           (resolve-note-location           (resolve-note-location
# Line 658  The second return value is the condition Line 659  The second return value is the condition
659            ((macro-function symbol)            ((macro-function symbol)
660             (function-source-locations (macro-function symbol)))             (function-source-locations (macro-function symbol)))
661            ((special-operator-p symbol)            ((special-operator-p symbol)
662             (list (list :error (format nil "~A is special-operator" symbol))))             (list (list :error (format nil "~A is a special-operator" symbol))))
663            ((fboundp symbol)            ((fboundp symbol)
664             (function-source-locations (coerce symbol 'function)))             (function-source-locations (coerce symbol 'function)))
665            (t (list (list :error            (t (list (list :error
# Line 1083  stack." Line 1084  stack."
1084          collect `(,tag . ,(code-location-source-location code-location))))          collect `(,tag . ,(code-location-source-location code-location))))
1085    
1086  (defslimefun invoke-nth-restart (index)  (defslimefun invoke-nth-restart (index)
1087    (invoke-restart (nth-restart index)))    (invoke-restart-interactively (nth-restart index)))
1088    
1089  (defslimefun sldb-abort ()  (defslimefun sldb-abort ()
1090    (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))    (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5