[cl-typesetting-devel] Portability oops

[Peter Seibel]

Looks like the new top-level stuff has a dependence on some impl
dependent foo. Here's a patch to get rid of it (taking a reasonable
guess at what SYS::REMOVE-PROPERTIES does):

-Peter


Index: top-level.lisp
===================================================================
--- top-level.lisp	(revision 15)
+++ top-level.lisp	(working copy)
@@ -51,6 +51,11 @@
   (room-left :accessor room-left :initarg :room-left :initform 0)
 ))
 
+(defun remove-properties (plist keys)
+  (loop for (key value) on plist by #'cddr
+        unless (member key keys) nconc (list key value)))
+
+
 (defun draw-pages (content &rest args
                    &key (size *default-page-size*)
                         (orientation *default-page-orientation*)
@@ -78,7 +83,7 @@
                                      :footer-bottom footer-bottom
                                      ;; Move room-left into initialize-instance :after?
                                      :room-left (- height top-margin bottom-margin)
-                                     (sys::remove-properties args
+                                     (remove-properties args
                                        '(:size :orientation :bounds
                                          :header-top :footer-bottom :break))))))
       (when (and pdf:*page* (member break '(:before :always)))


-- 
Peter Seibel                                      peter at javamonkey.com

         Lisp is the red pill. -- John Fraser, comp.lang.lisp