Re: [Axiom-developer] AxiomUI code

[Martin Rubey]

Dear Kai,

unfortunaltely, I can't get it to work.

Using Version: Axiom 3.6 (June 2005) I get

address@hidden axiomui]$ ./run.sh
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2002

;; Loading file run.lisp ...
;;  Loading file /home/rubey/Documents/axiomui/asdf.lisp ...
;;  Loaded file /home/rubey/Documents/axiomui/asdf.lisp

*** - ; FUNCALL: the function ; NIL is undefined
; 1. Break ; [; 1]> :bt

EVAL frame for form
; (FORMAT ASDF::*VERBOSE-OUT* ~A~@:>~%" ASDF::ON-DISK *PACKAGE*)
EVAL frame for form ; (LET (:ASDF)))) *PACKAGE*) ASDF::ON-DISK))
EVAL frame for form ; (WHEN ASDF::ON-DISK)))) ASDF::ON-DISK)))
EVAL frame for form ; (LET* ASDF::NAME))) ASDF::ON-DISK))) ASDF::NAME)))))
APPLY frame for call (; FIND-SYSTEM '; COMMON-LISP-USER::AXIOM-HUB)
EVAL frame for form ; (FIND-SYSTEM SYSTEM)
EVAL frame for form ; (IF 'COMPONENT) SYSTEM SYSTEM))
EVAL frame for form
; (LET*
;  ((ASDF::OP
;  (APPLY #'MAKE-INSTANCE ASDF::OPERATION-CLASS :ORIGINAL-INITARGS ASDF::ARGS
;  ASDF::ARGS))
;  (MAKE-BROADCAST-STREAM))) SYSTEM))) SYSTEM)))
;  (LET *ERROR-OUTPUT*)) (SYSTEM::C-REPORT-PROBLEMS))
;  (PROGV
;  (WHEN SYSTEM::*C-TOP-CALL*
;  '(SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*
;  SYSTEM::*STYLE-WARNING-COUNT*))
;  0))
;  (UNWIND-PROTECT
;  (LET (NIL))
;  (LET (ASDF::STEPS))
;  (TAGBODY SYSTEM::BEGIN-LOOP
;  (PROGN SYSTEM::END-LOOP))
;  (LET #:G693)))
;  (BLOCK NIL
;  (TAGBODY #:G694
;  (BLOCK #:G697
;  (LET (#:G698)
;  (TAGBODY
;  (LET*
;  ((SYSTEM::*ACTIVE-RESTARTS*
;  (LIST*
;  (SYSTEM::MAKE-RESTART :NAME 'RETRY :INVOKE-FUNCTION
;  #'(LAMBDA SYSTEM::ARGUMENTS) #:G695)))) SYSTEM::ARGUMENTS)
;  #:G695))
;  :REPORT COMPONENT)))
;  (SYSTEM::MAKE-RESTART :NAME 'ACCEPT :INVOKE-FUNCTION
;  #'(LAMBDA SYSTEM::ARGUMENTS) #:G696)))) SYSTEM::ARGUMENTS)
;  #:G696))
;  :REPORT
;  #'(LAMBDA (ASDF::S)
;  (DECLARE
;  (SYSTEM::SOURCE
;  ((ASDF::S)
;  (FORMAT ASDF::S
;  "~@<Continue, treating ~S on ~S as ~
;                             having been successful.~@:>"
;  ASDF::OP COMPONENT))))
;  (FORMAT ASDF::S
;  "~@<Continue, treating ~S on ~S as ~
;                             having been successful.~@:>"
;  ASDF::OP COMPONENT)))
;  SYSTEM::*ACTIVE-RESTARTS*)))
;  NIL))))
;  #:G695 #:G698)) #:G696 #:G698)))))
;  #:G694)))))
;  #:G692)) SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)))
;  (SYSTEM::C-REPORT-PROBLEMS))))))
APPLY frame for call (; OPERATE '; LOAD-OP '; COMMON-LISP-USER::AXIOM-HUB)
EVAL frame for form ; (APPLY #'OPERATE ASDF::ARGS)
APPLY frame for call (; OOS '; LOAD-OP '; COMMON-LISP-USER::AXIOM-HUB)
EVAL frame for form ; (OOS 'LOAD-OP 'COMMON-LISP-USER::AXIOM-HUB)
Printed ; 11 frames
; 1. Break ; [; 1]>

Kai Kaminski writes:
 > Hi,
 > 
 > an early version of AxiomUI can be found on kaikaminski.gmxhome.de. The 
 > only dependency is Clisp. I use 2.34 but earlier version that are not 
 > too old should be fine. All Lisp libraries that are needed are contained 
 > in the tarball.
 > 
 > There is also a README with instructions. It should be as easy as 
 > starting a shell script.
 > 
 > Kai
 > 
 > 
 > _______________________________________________
 > Axiom-developer mailing list
 > address@hidden
 > http://lists.nongnu.org/mailman/listinfo/axiom-developer