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

Diff of /slime/swank.lisp

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

revision 1.115 by heller, Wed Feb 4 22:16:54 2004 UTC revision 1.116 by heller, Sat Feb 7 11:38:03 2004 UTC
# Line 728  the string." Line 728  the string."
728    (declare (type function fn))    (declare (type function fn))
729    (let* ((label (format nil "  ~D: " n))    (let* ((label (format nil "  ~D: " n))
730           (string (with-output-to-string (stream)           (string (with-output-to-string (stream)
731                     (let ((*print-pretty* *sldb-pprint-frames*))                     (let ((*print-pretty* *sldb-pprint-frames*)
732                             (*print-circle* t))
733                       (princ label stream) (funcall fn stream)))))                       (princ label stream) (funcall fn stream)))))
734      (subseq string (length label))))      (subseq string (length label))))
735    
# Line 1236  that symbols accessible in the current p Line 1237  that symbols accessible in the current p
1237  (defslimefun untrace-all ()  (defslimefun untrace-all ()
1238    (untrace))    (untrace))
1239    
1240    (defslimefun undefine-function (fname-string)
1241      (let ((fname (from-string fname-string)))
1242        (format nil "~S" (fmakunbound fname))))
1243    
1244  (defslimefun load-file (filename)  (defslimefun load-file (filename)
1245    (to-string (load filename)))    (to-string (load filename)))
1246    
# Line 1330  from an element and TEST is used to comp Line 1335  from an element and TEST is used to comp
1335    (inspect-object (eval (from-string string))))    (inspect-object (eval (from-string string))))
1336    
1337  (defun print-part-to-string (value)  (defun print-part-to-string (value)
1338    (let ((*print-pretty* nil))    (let ((*print-pretty* nil)
1339            (*print-circle* t))
1340      (let ((string (to-string value))      (let ((string (to-string value))
1341            (pos (position value *inspector-history*)))            (pos (position value *inspector-history*)))
1342        (if pos        (if pos

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

  ViewVC Help
Powered by ViewVC 1.1.5