server.lisp and GCL



"Vadim V. Zhytnikov" <vvzhy@mail.ru> writes:

[GCL compiling getpid-from-environment in src/server.lisp] 
> Something weird is going on.  Yes, I also can compile
> server.lisp this way.  But if I try to build maxima from
> scratch I get:

Different (DECLAIM (OPTIMIZE ...)) settings, perhaps?

> ; (DEFUN GETPID-FROM-ENVIRONMENT ...) is being compiled.
> ;;; The function (OR TYPE-ERROR PARSE-ERROR) is illegal.
> No FASL generated.

Apparently, the GCL compiler does not recognise (OR TYPE-ERROR
PARSE-ERROR) as a typespec in this context.  In any case, currently
only CLISP under a non unix operating system has use for this
function, so I'll just #-gcl it (I don't #+clisp it because it's nice
to test things on as many lisp systems as possible, isn't it ;-)

A stripped down test case could be

(defun foo ()
  (handler-case
      nil
    ((or type-error parse-error) () nil)))

Wolfgang