[cl-typesetting-devel] Portability oops

[Dmitri Ivanov]

Hello Peter,

| 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):
| ...snip...|
|  
| +(defun remove-properties (plist keys)
| +  (loop for (key value) on plist by #'cddr
| +        unless (member key keys) nconc (list key value)))

Sorry, this excerpt is from my lw-compat library:

#+lispworks 
(eval-when (:compile-toplevel :load-toplevel :execute)
    (import 'system::remove-properties))
#-lispworks
(defun remove-properties (plist keys)
  (loop for (key value) on plist by #'cddr
          unless (member key keys :test #'eq) nconc (list key value)))

--
Sincerely,
Dmitri Ivanov
lisp.ystok.ru