[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: email@example.com, Sheldon S. Ball <firstname.lastname@example.org>
- Subject: Re: Scigraph
- From: email@example.com (Kalman Reti)
- Date: Tue, 17 Aug 1993 16:42:32 -0500
- Cc: firstname.lastname@example.org
At 14:41 8/17/93 -0500, Sheldon S. Ball wrote:
>;;Below is a section of code from load-dwim.lisp, a file from the Scigraph
>;;scientific graphics application contributed to cambridge.apple.com by BBN.
>;;How can MCL-CLIM be added to the list of platforms supported? In the case
>;;of file-type-for-sources, adding a line
>;; #+Coral "lisp"
>;;I'm not entirely sure about fixes to file-type-for-binaries &
I would use #+MCL instead of #+Coral. Also, there are two undocumented variables
*.fasl-pathname* and *.lisp-pathname* which contain pathnames with just the
type fields filled in. You can call pathname-type on these to get the string equivalents
(the defaults are "fasl" and "lisp"). So my suggestion on how to change these three
(defun file-type-for-sources ()
#+MCL #.(pathname-type *.lisp-pathname*)
#+(and (not genera) (not unix)) (error "Not yet implemented."))
(defun file-type-for-binaries ()
#+MCL #.(pathname-type *.fasl-pathname*)
#+allegro #.(pathname-type (compile-file-pathname "foo"))
#+lucid (car lcl:*load-binary-pathname-types*)
#+(and (not genera)
(error "Not yet implemented."))
(defun suggest-bin-directory (&optional (base *load-pathname*)
;; The number of different binaries you must have is
;; the cross product of the instruction set and the gui.
#+(and mcl (not clim)) "MAC"
#+(and genera (not clim)) "DW"
(if base (pathname-directory base) '(:relative))
(format nil "~A~A-~A"