[Bese-devel] ucw-toplevel in make-image.lisp

[Aleksandar Bakic]

Hi,

The dumped core works only if lisp is later started in the same directory. This
is because *default-pathname-defaults* is not captured, being special. You need
something like this:

(let ((dpd *default-pathname-defaults*))
  (defun ucw-toplevel ()
    (setf *ucw-tal-root* (merge-pathnames "./wwwroot/" dpd))
    ... ; also merge with dpd whenever truename is called

Alex


		
____________________________________________________
Sell on Yahoo! Auctions – no fees. Bid on great items.  
http://auctions.yahoo.com/