/[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.73 by heller, Mon Mar 1 09:02:15 2004 UTC revision 1.74 by heller, Wed Mar 3 07:28:48 2004 UTC
# Line 339  the error-context redundant." Line 339  the error-context redundant."
339                                    (pos (eql nil))                                    (pos (eql nil))
340                                    (path (eql nil))                                    (path (eql nil))
341                                    (source (eql nil)))                                    (source (eql nil)))
342      (list :error "No error location available")
343      #+(or)
344    (cond (buffer    (cond (buffer
345           (make-location (list :buffer buffer)           (make-location (list :buffer buffer)
346                          (list :position *buffer-start-position*)))                          (list :position *buffer-start-position*)))
347          (*compile-file-truename*          (*compile-file-truename*
348           (make-location (list :file (namestring *compile-file-truename*))           (make-location (list :file (namestring *compile-file-truename*))
349                          (list :position 0)))                          (list :source-path '(0) 1)))
350          (*compile-filename*          (*compile-filename*
351           (make-location (list :file *compile-filename*)           (make-location (list :file *compile-filename*)
352                          (list :position 0)))                          (list :source-path '(0) 1)))
353          (t          (t
354           (list :error "No error location available"))))           (list :error "No error location available"))))
355    
# Line 365  the error-context redundant." Line 367  the error-context redundant."
367    (with-compilation-hooks ()    (with-compilation-hooks ()
368      (let ((*buffer-name* nil)      (let ((*buffer-name* nil)
369            (*compile-filename* filename))            (*compile-filename* filename))
370        (let ((fasl-file (compile-file filename)))        (compile-file filename :load load-p))))
         (when (and load-p fasl-file)  
           (load fasl-file))))))  
371    
372  (defimplementation compile-string-for-emacs (string &key buffer position)  (defimplementation compile-string-for-emacs (string &key buffer position)
373    (with-compilation-hooks ()    (with-compilation-hooks ()
# Line 1027  stack." Line 1027  stack."
1027     (multiple-value-list     (multiple-value-list
1028      (di:eval-in-frame (nth-frame index) (from-string string)))))      (di:eval-in-frame (nth-frame index) (from-string string)))))
1029    
 (defslimefun inspect-in-frame (string index)  
   (reset-inspector)  
   (inspect-object (di:eval-in-frame (nth-frame index) (from-string string))))  
   
1030  (defimplementation frame-locals (index)  (defimplementation frame-locals (index)
1031    (let* ((frame (nth-frame index))    (let* ((frame (nth-frame index))
1032           (location (di:frame-code-location frame))           (location (di:frame-code-location frame))

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

  ViewVC Help
Powered by ViewVC 1.1.5