gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Gcl-devel] Re: universal-error-handler


From: Camm Maguire
Subject: [Gcl-devel] Re: universal-error-handler
Date: 20 Feb 2004 18:37:33 -0500
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

Greetings, and thanks for your work on this!

gclcvs has support for *setf functions* which is absent from the
stable branch.  I think we should only focus on getting this to work
with gclcvs, or 2.7.x.  Please let me know if there are any issues
with this branch.

Take care,

Dennis Decker Jensen <address@hidden> writes:

> Hi Camm!
> 
> I've started working on the script for common-lisp-controller
> and soon enough ran into a problem with the universal-error-handler.
> 
> The issue is only with 2.6.1, not with gclcvs.
> 
> I was trying out to compile from the command line.
> 
> Regarding pathnames, it is going to be a show-stopper
> for common-lisp-controller until proper pathname support
> is implemented in GCL.  Just about every aspect of c-l-c
> on the lisp side depends on it.
> 
> To find out more about pathnames rather quick,
> you might want to look into `info gcl' ->
> Filenames ->
> Pathnames ->
> Interpreting Pathname Component Values ->
> Restrictions on Examinming a Pathname Component
> and
> Restrictions on Constructing Pathnames
> 
> Script started on Fri Feb 20 19:04:24 2004
> address@hidden:~/clc$ gcl -batch -compile common-lisp-controller.lisp
> 
> Compiling common-lisp-controller.lisp.
> Error in FUNCALL [or a callee]: Cannot expand the SETF form 
> (LOGICAL-PATHNAME-TRANSLATIONS
>                                                              LP-HOST).
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at PUSH.  Type :H for Help.
>  1 (Continue) (SYSTEM:ERROR-SET
>                   '(MACROEXPAND
>                        '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                               (LOGICAL-PATHNAME-TRANSLATIONS LP-HOST))
>                        'NIL))
>  2 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  3 (Abort) Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>
> dbl:COMMON-LISP-CONTROLLER>>1
> 
> 
> ; (DEFUN ADD-TRANSLATION ...) is being compiled.
> ;;; The macro form (PUSH (LIST NEW-SOURCE NEW-DEST)
>                          (LOGICAL-PATHNAME-TRANSLATIONS LP-HOST)) was not 
> expanded successfully.
> Error in FUNCALL [or a callee]: Cannot expand the SETF form 
> (LOGICAL-PATHNAME-TRANSLATIONS
>                                                              LP-HOST).
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at PUSH.  Type :H for Help.
>  1 (Continue) (SYSTEM:ERROR-SET
>                   '(FUNCALL *MACROEXPAND-HOOK*
>                             '#<compiled-function PUSH>
>                             '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                                    (LOGICAL-PATHNAME-TRANSLATIONS
>                                     LP-HOST))
>                             'NIL))
>  2 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  3 (Abort) Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>
> dbl:COMMON-LISP-CONTROLLER>>3
> 
> 
> Error in PUSH [or a callee]: The tag (NIL) is undefined.
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER.
>  1 (Abort) Return to debug level 1.
>  2 (SYSTEM:ERROR-SET
>        '(FUNCALL *MACROEXPAND-HOOK* '#<compiled-function PUSH>
>                  '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                         (LOGICAL-PATHNAME-TRANSLATIONS LP-HOST))
>                  'NIL))
>  3 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  4 Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>>
> dbl:COMMON-LISP-CONTROLLER>>>4
> 
> 
> Error in CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER [or a callee]: The tag 
> (NIL) is undefined.
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER.
>  1 (Abort) Return to debug level 2.
>  2 Return to debug level 1.
>  3 (SYSTEM:ERROR-SET
>        '(FUNCALL *MACROEXPAND-HOOK* '#<compiled-function PUSH>
>                  '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                         (LOGICAL-PATHNAME-TRANSLATIONS LP-HOST))
>                  'NIL))
>  4 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  5 Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>>>
> dbl:COMMON-LISP-CONTROLLER>>>>1
> 
> 
> Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER.
> dbl:COMMON-LISP-CONTROLLER>>>
> dbl:COMMON-LISP-CONTROLLER>>>2
> 
> ;;; The macro form (PUSH ...) was not expanded successfully.
> ;; Warning: The variable NEW-DEST is not used.
> ;; Warning: The variable NEW-SOURCE is not used.
> Error in FUNCALL [or a callee]: Cannot expand the SETF form 
> (LOGICAL-PATHNAME-TRANSLATIONS
>                                                              LP-HOST).
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at PUSH.  Type :H for Help.
>  1 (Continue) (SYSTEM:ERROR-SET
>                   '(MACROEXPAND
>                        '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                               (LOGICAL-PATHNAME-TRANSLATIONS LP-HOST))
>                        'NIL))
>  2 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  3 (Abort) Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>
> dbl:COMMON-LISP-CONTROLLER>>3
> 
> 
> Error in PUSH [or a callee]: The tag (NIL) is undefined.
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER.
>  1 (Abort) Return to debug level 1.
>  2 (SYSTEM:ERROR-SET
>        '(MACROEXPAND
>             '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                    (LOGICAL-PATHNAME-TRANSLATIONS LP-HOST))
>             'NIL))
>  3 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  4 Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>>
> dbl:COMMON-LISP-CONTROLLER>>>2
> 
> ;;; The macro form (PUSH
>                                                  (LIST NEW-SOURCE
>                                                   NEW-DEST)
>                                                  
> (LOGICAL-PATHNAME-TRANSLATIONS
>                                                   LP-HOST)) was not expanded 
> successfully.
> Error in FUNCALL [or a callee]: Cannot expand the SETF form 
> (LOGICAL-PATHNAME-TRANSLATIONS
>                                                              LP-HOST).
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at PUSH.  Type :H for Help.
>  1 (Continue) (SYSTEM:ERROR-SET
>                   '(FUNCALL *MACROEXPAND-HOOK*
>                             '#<compiled-function PUSH>
>                             '(PUSH (LIST NEW-SOURCE NEW-DEST)
>                                    (LOGICAL-PATHNAME-TRANSLATIONS
>                                     LP-HOST))
>                             'NIL))
>  2 (SYSTEM:ERROR-SET
>        '(PROGN
>           (COMPILE-FILE (SYSTEM::GET-COMMAND-ARG "-compile")
>               :OUTPUT-FILE
>               (OR (SYSTEM::GET-COMMAND-ARG "-o")
>                   (SYSTEM::GET-COMMAND-ARG "-compile"))
>               :O-FILE
>               (COND
>                 ((EQUALP (SYSTEM::GET-COMMAND-ARG "-o-file") "nil")
>                  NIL)
>                 ((SYSTEM::GET-COMMAND-ARG "-o-file" T))
>                 (T T))
>               :C-FILE (SYSTEM::GET-COMMAND-ARG "-c-file" T) :H-FILE
>               (SYSTEM::GET-COMMAND-ARG "-h-file" T) :DATA-FILE
>               (SYSTEM::GET-COMMAND-ARG "-data-file" T) :SYSTEM-P
>               (SYSTEM::GET-COMMAND-ARG "-system-p" T))))
>  3 (Abort) Return to top level.
> dbl:COMMON-LISP-CONTROLLER>>
> dbl:COMMON-LISP-CONTROLLER>>2
> 
> address@hidden:~/clc$ ls
> clisp.sh                     gcl-bug-130569     sbcl.sh
> common-lisp-controller.data    gcl.sh           universal-handler-error
> common-lisp-controller.lisp    install-clc.clisp
> common-lisp-controller.readme  install-clc.sbcl
> address@hidden:~/clc$ rm common-lisp-controller.data
> address@hidden:~/clc$ exit
> Script done on Fri Feb 20 19:05:52 2004
> 
> Yours,
> 
> Dennis Decker Jensen
> 
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah




reply via email to

[Prev in Thread] Current Thread [Next in Thread]