% cmucl -noinit
CMU Common Lisp 19c (19C), running on thalassa
With core: /local/languages/cmucl-19c/lib/cmucl/lib/lisp.core
Dumped on: Thu, 2005-11-17 15:12:58+01:00 on lorien
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (setf (logical-pathname-translations "PACKAGES") nil)
NIL
* (setf (logical-pathname-translations "PACKAGES")
(list
(LIST
(make-pathname
:host "PACKAGES"
:directory '(:absolute
"COM" "INFORMATIMAGO" #-cmu #|Un gros bug!|#"COMMON-LISP"
:wild-inferiors)
:name :wild :type :wild :version :wild)
(make-pathname
:directory (append
(let ((d (pathname-directory *DEFAULT-PATHNAME-DEFAULTS*)))
(or d '(:relative)))
'(:wild-inferiors))
:name :wild :type :wild :version :wild))))
((#P"PACKAGES:COM;INFORMATIMAGO;**;*.*.*" #P"**/*.*.~*~"))
* (defun print-pathname (p)
(format t "~&~{~{~@(~9A~) : ~S~&~}~}"
(mapcar (lambda (name field) (list name (funcall field p)))
'(host device directory name type version)
'(pathname-host pathname-device pathname-directory
pathname-name pathname-type pathname-version)))
p)
PRINT-PATHNAME
* (print-pathname (second (first (logical-pathname-translations "PACKAGES"))))
Host : ""
Device : NIL
Directory : (:RELATIVE :WILD-INFERIORS)
Name : :WILD
Type : :WILD
Version : :WILD
#P"**/*.*.~*~"
* (translate-logical-pathname
"PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.LISP")
#P"/common-lisp/utility.lisp"
* (print-pathname *)
Host : ""
Device : :UNSPECIFIC
Directory : (:ABSOLUTE "common-lisp")
Name : "utility"
Type : "lisp"
Version : NIL
#P"/common-lisp/utility.lisp"
* (DEFUN PRINT-BUG-REPORT-INFO ()
"Prints information for a bug report."
(FORMAT T "~2%~{~28A ~S~%~}~2%"
(LIST "LISP-IMPLEMENTATION-TYPE" (LISP-IMPLEMENTATION-TYPE)
"LISP-IMPLEMENTATION-VERSION" (LISP-IMPLEMENTATION-VERSION)
"SOFTWARE-TYPE" (SOFTWARE-TYPE)
"SOFTWARE-VERSION" (SOFTWARE-VERSION)
"MACHINE-INSTANCE" (MACHINE-INSTANCE)
"MACHINE-TYPE" (MACHINE-TYPE)
"MACHINE-VERSION" (MACHINE-VERSION)
"*FEATURES*" *FEATURES*))
(VALUES))
PRINT-BUG-REPORT-INFO
* (PRINT-BUG-REPORT-INFO)
LISP-IMPLEMENTATION-TYPE "CMU Common Lisp"
LISP-IMPLEMENTATION-VERSION "19c (19C)"
SOFTWARE-TYPE "Linux"
SOFTWARE-VERSION "Linux version 2.6.15-c3 ([EMAIL PROTECTED]) (gcc
version 3.3 20030226 (prerelease) (SuSE Linux)) #3 Mon Apr 10 20:56:51 CEST
2006"
MACHINE-INSTANCE "thalassa"
MACHINE-TYPE "X86"
MACHINE-VERSION "X86"
*FEATURES* (:GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS
:PCL :CMU19 :CMU19C :PYTHON
:CONSERVATIVE-FLOAT-TYPE :MODULAR-ARITH :MP :X86
:LINKAGE-TABLE :RELATIVE-PACKAGE-NAMES :LINUX
:GLIBC2 :UNIX :RANDOM-MT19937 :GENCGC :PENTIUM
:I486 :HASH-NEW :HEAP-OVERFLOW-CHECK
:STACK-CHECKING :COMMON :COMMON-LISP :ANSI-CL
:IEEE-FLOATING-POINT :CMU)
*
--
__Pascal Bourguignon__ http://www.informatimago.com/
Nobody can fix the economy. Nobody can be trusted with their finger
on the button. Nobody's perfect. VOTE FOR NOBODY.
