Re: Enhancements for Corman 2.0 for ANSI compatibility

I tried to install cl-xml:

(in-package "CL-USER")
#<PACKAGE "COMMON-LISP-USER">
(load "c:\\XML_Lisp\\define-system.lisp")
17
(register-system-definition :xparser (make-pathname
:directory '(:absolute "XML_Lisp") :name "sysdcl"
:type "lisp"))
#P"\XML_Lisp\sysdcl.lisp"
(execute-system-operations :xparser '(:compile :load))
;;; An error occurred in function #<
COMPILED-FUNCTION: #xF796C0 >:
;;; Error: The function COMPILE-FILE-PATHNAME is
undefined
;;; Entering Corman Lisp debug loop. 
;;; Use :C followed by an option to exit. Type :HELP
for help.
;;; Restart options:
;;; 1   Abort to top level.

it seems I need the COMPILE-FILE-PATHNAME function 

--- JP Massar <massar@xxxxxxxxxxxx> wrote:
> I have a file I can send to anyone who is interested
> containing
> enhancements to the Corman 2.0 implementation to
> make it more
> conforming to ANSI Common Lisp.  Also included here
> is a patch
> for the SUBLIS function and EQUAL (making it work on
> pathnames).
> 
> You might find some of this stuff quite useful while
> some of it is
> just dummy functions, returning NIL.
> 
> ;;;; Included code:
> ;;;; -- FORMATTER (macro instead of function)
> ;;;; -- WITH-OPEN-STREAM (macro, new)
> ;;;; -- USER-HOMEDIR-PATHNAME (function, new)
> ;;;; -- STANDARD-CHAR-P (function, new)
> ;;;; -- SOFTWARE-TYPE, SOFTWARE-VERSION,
> SHORT-SITE-NAME, LONG-SITE-NAME,
> ;;;;    MACHINE-INSTANCE, MACHINE-TYPE,
> MACHINE-VERSION
> ;;;;    (functions, new)
> ;;;; -- PATHNAME-MATCH-P, WILD-PATHNAME-P
> (functions, new)
> ;;;; -- SUBLIS (function, patch)
> ;;;; -- NSUBLIS (function, new)
> ;;;; -- NAME-CHAR (function, new)
> ;;;; -- FILE-NAMESTRING, HOST-NAMESTRNG (functions,
> new)
> ;;;; -- COMPILE-FILE-PATHNAME (function, new)
> ;;;; -- FILE-AUTHOR (function, new)
> ;;;; -- LAMBDA-LIST-KEYWORDS (redefined as
> DEFCONSTANT)
> ;;;; -- INTERNAL-TIME-UNITS-PER-SECOND (redefined as
> DEFCONSTANT)
> ;;;; -- SHORT-FLOAT-EPSILON,
> SHORT-FLOAT-NEGATIVE-EPSILON
> ;;;;    SINGLE-FLOAT-EPSILON,
> SINGLE-FLOAT-NEGATIVE-EPSILON
> ;;;;    DOUBLE-FLOAT-EPSILON,
> DOUBLE-FLOAT-NEGATIVE-EPSILON
> ;;;;    LONG-FLOAT-EPSILON,
> LONG-FLOAT-NEGATIVE-EPSILON
> ;;;;    (constants, new)
> ;;;; -- LISP::PATHNAME= (internal function,
> redefined)
> ;;;;    EQUAL now works on pathnames with
> reimplementation of this
> ;;;;    function (used to be noop)
> 
> 


__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com

------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/xGHJAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
cormanlisp-unsubscribe@xxxxxxxxxxxxxxx

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/