Add regression tests for CDR-7

Author: yitzchak

src/lisp/regression-tests/printer01.lisp

@@ -588,3 +588,55 @@ BBBBCCCC**DDDD"))
                        :pretty t)
       ("(A (CORE:UNQUOTE A) (CORE:UNQUOTE-SPLICE A) (CORE:UNQUOTE-NSPLICE A)
  . `(A ,@(A (CORE:UNQUOTE A)) ,.A . ,A))"))
+
+(defun fmt (stream argument colonp atsignp &rest params)
+  (declare (ignore argument colonp atsignp))
+  (format stream "~S" params))
+
+(test cdr-7.comma.1
+      (format nil "~1,2/clasp-tests:fmt/" t)
+      ("(1 2)"))
+
+(test cdr-7.comma.2
+      (format nil "~1,2,/clasp-tests:fmt/" t)
+      ("(1 2)"))
+
+(test cdr-7.comma.3
+      (format nil "~1,2:/clasp-tests:fmt/" t)
+      ("(1 2)"))
+
+(test cdr-7.comma.4
+      (format nil "~1,2,:/clasp-tests:fmt/" t)
+      ("(1 2)"))
+
+(test cdr-7.parameter.1
+      (format nil "~1,v/clasp-tests:fmt/" t t)
+      ("(1 T)"))
+
+(test cdr-7.parameter.2
+      (format nil "~1,v/clasp-tests:fmt/" nil t)
+      ("(1 NIL)"))
+
+(test cdr-7.parameter.3
+      (format nil "~1,v,/clasp-tests:fmt/" t t)
+      ("(1 T)"))
+
+(test cdr-7.parameter.4
+      (format nil "~1,v,/clasp-tests:fmt/" nil t)
+      ("(1 NIL)"))
+
+(test cdr-7.parameter.5
+      (format nil "~1,v:/clasp-tests:fmt/" t t)
+      ("(1 T)"))
+
+(test cdr-7.parameter.6
+      (format nil "~1,v:/clasp-tests:fmt/" nil t)
+      ("(1 NIL)"))
+
+(test cdr-7.parameter.7
+      (format nil "~1,v,:/clasp-tests:fmt/" t t)
+      ("(1 T)"))
+
+(test cdr-7.parameter.8
+      (format nil "~1,v,:/clasp-tests:fmt/" nil t)
+      ("(1 NIL)"))