[Openmcl-devel] openmcl read problem

[Rick Taube]

openmcl 1.0 cant load a file with this expression in it. the file its 
taken from is called "walk.lisp" an old code walker from the pcl 
distribution. other versions of openmcl load lt:

--rick


(defun variable-globally-special-p (symbol)
   #+Genera                      (si:special-variable-p symbol)
   #+Cloe-Runtime		(compiler::specialp symbol)
   #+Lucid                       (lucid::proclaimed-special-p symbol)
   #+TI                          (get symbol 'special)
   #+Xerox                       (il:variable-globally-special-p symbol)
   #+(and dec vax common)        (get symbol 'system::globally-special)
   #+(or KCL IBCL)               (si:specialp symbol)
   #+excl                        (get symbol 'excl::.globally-special.)
   #+:CMU			(eq (ext:info variable kind symbol) :special)
   #+HP-HPLabs                   (member (get symbol 'impl:vartype)
					'(impl:fluid impl:global)
					:test #'eq)
   #+:GCLISP                     (gclisp::special-p symbol)
   #+pyramid			(or (get symbol 'lisp::globally-special)
				    (get symbol
					 'clc::globally-special-in-compiler))
   #+(or openmcl :CORAL)                      (ccl::proclaimed-special-p 
symbol)
   #-(or openmcl Genera Cloe-Runtime Lucid Xerox Excl KCL IBCL (and dec 
vax common) :CMU HP-HPLabs
	GCLisp TI pyramid :CORAL)
   (or (not (null (member symbol *globally-special-variables* :test 
#'eq)))
       (when (eval `(flet ((ref () ,symbol))
		     (let ((,symbol '#,(list nil)))
		       (and (boundp ',symbol) (eq ,symbol (ref))))))
	(push symbol *globally-special-variables*)
	t)))


 > Error in process listener(1): Reader error on stream 
#<FILE-CHARACTER-INPUT-STREAM ("/private/tmp/bug.lisp"/12) #x83ADED6>:
 >                               Undefined character #\, in a #\# 
dispatch macro.
 > While executing: CCL::SIGNAL-READER-ERROR
 > Type :POP to abort.
Type :? for other options.
1 > *features*
(:PRIMARY-CLASSES :CCL :CCL-2 :CCL-3 :CCL-4 :CORAL :COMMON-LISP :MCL 
:OPENMCL :ANSI-CL :PROCESSES :UNIX :OPENMCL-NATIVE-THREADS 
:OPENMCL-PARTIAL-MOP :MCL-COMMON-MOP-SUBSET :OPENMCL-MOP-2 :POWERPC 
:PPC-TARGET :PPC-CLOS :PPC32-TARGET :PPC32-HOST :DARWINPPC-TARGET 
:DARWINPPC-HOST :DARWIN :POWEROPEN-TARGET :32-BIT-TARGET :32-BIT-HOST 
:BIG-ENDIAN-TARGET :BIG-ENDIAN-HOST :OPENMCL-PRIVATE-HASH-TABLES)
1 >