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

Diff of /slime/swank.lisp

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

revision 1.387 by mkoeppe, Mon Jul 24 14:01:15 2006 UTC revision 1.388 by heller, Wed Aug 9 16:46:10 2006 UTC
# Line 944  dynamic binding." Line 944  dynamic binding."
944    
945  ;;;;; Global redirection setup  ;;;;; Global redirection setup
946    
947  (setup-stream-indirection *standard-output*)  ;; FIXME: This doesn't work with Allegros IDE (MAKE-SYNONYM-STREAM
948  (setup-stream-indirection *error-output*)  ;; doesn't work with their GUI-streams). Maybe we should just drop this
949  (setup-stream-indirection *trace-output*)  ;; global redirection stuff.
950  (setup-stream-indirection *standard-input*)  ;;
951  (setup-stream-indirection *debug-io*)  ;; (setup-stream-indirection *standard-output*)
952  (setup-stream-indirection *query-io*)  ;; (setup-stream-indirection *error-output*)
953  (setup-stream-indirection *terminal-io*)  ;; (setup-stream-indirection *trace-output*)
954    ;; (setup-stream-indirection *standard-input*)
955    ;; (setup-stream-indirection *debug-io*)
956    ;; (setup-stream-indirection *query-io*)
957    ;; (setup-stream-indirection *terminal-io*)
958    
959  (defparameter *standard-output-streams*  (defparameter *standard-output-streams*
960    '(*standard-output* *error-output* *trace-output*)    '(*standard-output* *error-output* *trace-output*)
# Line 2227  forward keywords to OPERATOR." Line 2231  forward keywords to OPERATOR."
2231                               :print-right-margin print-right-margin                               :print-right-margin print-right-margin
2232                               :highlight highlight))                               :highlight highlight))
2233    
2234  (defun test-print-arglist (list string)  (defun test-print-arglist ()
2235    (string= (arglist-to-string list (find-package :swank)) string))    (flet ((test (list string)
2236               (let* ((p (find-package :swank))
2237                      (actual (arglist-to-string list p)))
2238                 (unless (string= actual string)
2239                   (format *debug-io*
2240                           "Test failed: ~S => ~S~%  Expected: ~S"
2241                           list actual string)))))
2242        (test '(function cons) "(function cons)")
2243        (test '(quote cons) "(quote cons)")
2244        (test '(&key (function #'+)) "(&key (function #'+))")
2245        (test '(&whole x y z) "(y z)")
2246        (test '(x &aux y z) "(x)")
2247        (test '(x &environment env y) "(x y)")
2248        (test '(&key ((function f))) "(&key ((function f)))")))
2249    
2250  ;; Should work:  (test-print-arglist)
 (progn  
   (assert (test-print-arglist '(function cons) "(function cons)"))  
   (assert (test-print-arglist '(quote cons) "(quote cons)"))  
   (assert (test-print-arglist '(&key (function #'+)) "(&key (function #'+))"))  
   (assert (test-print-arglist '(&whole x y z) "(y z)"))  
   (assert (test-print-arglist '(x &aux y z) "(x)"))  
   (assert (test-print-arglist '(x &environment env y) "(x y)"))  
   (assert (test-print-arglist '(&key ((function f))) "(&key ((function f)))")))  
2251    
2252    
2253  ;;;; Recording and accessing results of computations  ;;;; Recording and accessing results of computations

Legend:
Removed from v.1.387  
changed lines
  Added in v.1.388

  ViewVC Help
Powered by ViewVC 1.1.5