[Openmcl-devel] openmcl read problem

Rick Taube taube at uiuc.edu
Wed Nov 9 06:56:52 PST 2005

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:


(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
   #+(or openmcl :CORAL)                      (ccl::proclaimed-special-p 
   #-(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 
       (when (eval `(flet ((ref () ,symbol))
		     (let ((,symbol '#,(list nil)))
		       (and (boundp ',symbol) (eq ,symbol (ref))))))
	(push symbol *globally-special-variables*)

 > 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*
1 >

More information about the Openmcl-devel mailing list