Enhancements for Corman 2.0 for ANSI compatibility

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)


------------------------ 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:
[email protected]

 

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