[cl-typesetting-devel] Re: cl-pdf vs the fasl cache

[Marc Battyani]

Faré wrote:
>Oh, and while I'm there, I similarly had to change
>cl-typesetting/hyphenation-fp.lisp with
>(defvar *cl-typesetting-base-directory*
>  (make-pathname :name nil :type nil :version nil :defaults
#.*load-truename*))
>
>And I propagated this kind of thing to cl-pdf/config.lisp:
>(defvar *cl-pdf-base-directory*
>  (make-pathname :name nil :type nil :version nil :defaults
#.*load-truename*))
>
>(defparameter *afm-files-directories*
>  (list (merge-pathnames #P"afm/*.afm" *cl-pdf-base-directory*))
>  "The directory containing the Adobe Font Metrics files for the 14
>predefined fonts")
>
>And since it is an error to evaluate defconstant twice with values
>that are not EQ, and lists are not EQ between compilation and loading
>from a fasl, I put the following in specials.lisp:
>
>(defmacro defconstant* (name value &optional doc)
>  `(eval-when (:compile-toplevel :load-toplevel :execute)
>     (unless (boundp ',name)
>       (defconstant ,name ,value ,@(when doc (list doc))))))
>
>and changed top-level.lisp to use defconstant* with +paper-sizes+.

OK, is this SBCL compliant? ;-)

Marc