X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpprint.impure.lisp;h=a88e54adad4d26d1609ac3bfc4c24cddf84336b6;hb=0573ba54479d1d65e2c8a14daffd2976e249bf40;hp=32451bedf3816397018dacf9e0c198ca308fd9b9;hpb=ac0bb62cb48dcba68b07e0a1eb5573de92373c7c;p=sbcl.git

diff --git a/tests/pprint.impure.lisp b/tests/pprint.impure.lisp
index 32451be..a88e54a 100644
--- a/tests/pprint.impure.lisp
+++ b/tests/pprint.impure.lisp
@@ -136,5 +136,13 @@
 	   (write '`(lambda (,x)) :stream s :pretty t :readably t))
 	 "`(LAMBDA (,X))"))
 
+;;; SET-PPRINT-DISPATCH should accept function name arguments
+(defun ppd-function-name (s o)
+  (print (length o) s))
+(set-pprint-dispatch '(cons (eql frob)) 'ppd-function-name)
+(let ((s (with-output-to-string (s)
+	   (pprint '(frob a b) s))))
+  (assert (position #\3 s)))
+
 ;;; success
 (quit :unix-status 104)