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

Diff of /slime/swank.lisp

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

revision 1.117 by heller, Sat Feb 7 19:27:09 2004 UTC revision 1.118 by mbaringer, Sun Feb 8 15:37:33 2004 UTC
# Line 838  change, then send Emacs an update." Line 838  change, then send Emacs an update."
838          (makunbound name)          (makunbound name)
839          (prin1-to-string (eval form))))))          (prin1-to-string (eval form))))))
840    
841    (defvar *swank-pprint-circle* *print-circle*
842      "*PRINT-CIRCLE* is bound to this volue when pretty printing slime output.")
843    
844    (defvar *swank-pprint-escape* *print-escape*
845      "*PRINT-ESCAPE* is bound to this volue when pretty printing slime output.")
846    
847    (defvar *swank-pprint-level* *print-level*
848      "*PRINT-LEVEL* is bound to this volue when pretty printing slime output.")
849    
850    (defvar *swank-pprint-length* *print-length*
851      "*PRINT-LENGTH* is bound to this volue when pretty printing slime output.")
852    
853  (defun swank-pprint (list)  (defun swank-pprint (list)
854    "Bind some printer variables and pretty print each object in LIST."    "Bind some printer variables and pretty print each object in LIST."
855    (let ((*print-pretty* t)    (let ((*print-pretty* t)
856          (*print-circle* t)          (*print-circle* *swank-pprint-circle*)
857          (*print-escape* t)          (*print-escape* *swank-pprint-escape*)
858          (*print-level* nil)          (*print-level* *swank-pprint-level*)
859          (*print-length* nil))          (*print-length* *swank-pprint-length*))
860      (cond ((null list) "; No value")      (cond ((null list) "; No value")
861            (t (with-output-to-string (*standard-output*)            (t (with-output-to-string (*standard-output*)
862                 (dolist (o list)                 (dolist (o list)
# Line 945  Record compiler notes signalled as `comp Line 957  Record compiler notes signalled as `comp
957    
958  (defun apply-macro-expander (expander string)  (defun apply-macro-expander (expander string)
959    (declare (type function expander))    (declare (type function expander))
960    (let ((*print-pretty* t)    (swank-pprint (list (funcall expander (from-string string)))))
         (*print-length* 20)  
         (*print-level* 20))  
     (to-string (funcall expander (from-string string)))))  
961    
962  (defslimefun swank-macroexpand-1 (string)  (defslimefun swank-macroexpand-1 (string)
963    (apply-macro-expander #'macroexpand-1 string))    (apply-macro-expander #'macroexpand-1 string))

Legend:
Removed from v.1.117  
changed lines
  Added in v.1.118

  ViewVC Help
Powered by ViewVC 1.1.5