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

Diff of /slime/swank.lisp

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

revision 1.252 by heller, Tue Oct 19 05:57:29 2004 UTC revision 1.253 by heller, Tue Oct 19 06:14:17 2004 UTC
# Line 1215  change, then send Emacs an update." Line 1215  change, then send Emacs an update."
1215                                     shortest)                                     shortest)
1216                finally (return shortest)))                finally (return shortest)))
1217    
   
1218  (defslimefun interactive-eval-region (string)  (defslimefun interactive-eval-region (string)
1219    (with-buffer-syntax ()    (with-buffer-syntax ()
1220      (format-values-for-echo-area (eval-region string))))      (format-values-for-echo-area (eval-region string))))
# Line 1229  change, then send Emacs an update." Line 1228  change, then send Emacs an update."
1228          (makunbound name)          (makunbound name)
1229          (prin1-to-string (eval form))))))          (prin1-to-string (eval form))))))
1230    
 (defun foo (&key ((:x a)) ((y b)))  
   (cons a b))  
   
 (foo 'y 10)  
   
   
1231  (defmacro define-printer-variables (prefix &body vars)  (defmacro define-printer-variables (prefix &body vars)
1232    "Define a group of printer variables.    "Define a group of printer variables.
1233    
# Line 1248  the corresponding printer variable. Line 1241  the corresponding printer variable.
1241  At macroexpansion time the names of the created symbols are stored in  At macroexpansion time the names of the created symbols are stored in
1242  the 'printer-variables property of PREFIX."  the 'printer-variables property of PREFIX."
1243    (let ((valid-names '(level length circle readably pretty    (let ((valid-names '(level length circle readably pretty
1244                         case escape right-margin)))                         case escape right-margin miser-width
1245                           base radix gensym array lines pprint-dispatch)))
1246      (labels ((symconc (prefix suffix)      (labels ((symconc (prefix suffix)
1247                 (intern (format nil "*~A-~A*" (string prefix) (string suffix))                 (intern (format nil "*~A-~A*" (string prefix) (string suffix))
1248                         :swank))                         :swank))
# Line 1267  the 'printer-variables property of PREFI Line 1261  the 'printer-variables property of PREFI
1261                     collect `(defvar ,(symconc prefix name) ,init                     collect `(defvar ,(symconc prefix name) ,init
1262                                ,@(if doc doc))))))))                                ,@(if doc doc))))))))
1263    
1264    
1265  (define-printer-variables swank-pprint  (define-printer-variables swank-pprint
1266    circle level length case right-margin escape)    circle level length case right-margin escape)
1267    
# Line 1372  after Emacs causes a restart to be invok Line 1367  after Emacs causes a restart to be invok
1367    (level 4)    (level 4)
1368    (length 10)    (length 10)
1369    (circle t)    (circle t)
1370    (readably nil))    (readably nil)
1371      gensym pprint-dispatch base radix array lines)
1372    
1373  (defun debug-in-emacs (condition)  (defun debug-in-emacs (condition)
1374    (let ((*swank-debugger-condition* condition)    (let ((*swank-debugger-condition* condition)

Legend:
Removed from v.1.252  
changed lines
  Added in v.1.253

  ViewVC Help
Powered by ViewVC 1.1.5