Changeset 37 in CGBLisp

Timestamp:

Feb 1, 2009, 11:21:16 AM (15 years ago)

Author:

Marek Rychlik

Message:

Enabled use of operator-lessp from infix.lisp

File:

• trunk/src/infix-printer.lisp (modified) (3 diffs)

trunk/src/infix-printer.lisp

@@ -11 +11 @@
 
 (defpackage "INFIX-PRINTER"
-  (:use "INFIX" "COMMON-LISP")
+  (:use "COMMON-LISP"
+        "INFIX"                         ;for operator-lessp
+        )
   (:export infix-print))
 
 (in-package "INFIX-PRINTER")
-
-
 
 (defun infix-print-separated-list (lst sep stream op print-level
@@ -29 +29 @@
     (format stream "#"))
    (t
-    (dolist (arg lst)
+    (dolist (arg lst (infix-print arg stream op print-level))
       (setf true-sep sep)
       (incf count)
@@ -39 +39 @@
         (format stream "~a" true-sep))
       (when (and (numberp *print-length*) (> count *print-length*))
-        (format stream "..." true-sep)
-        (return-from infix-print-separated-list))
-      (infix-print arg stream op print-level)))))
+        (format stream "..."))
+      (return-from infix-print-separated-list)))))