Anyone know aught about <http://www.ufasoft.com/lisp/>? It apparently
supports CLOS and creating EXEs. Acc. to reference, it's free for
academic & non-commercial use.
Not really up my alley, as I'm a Unix man, but I ran across it on a
dodgy shareware site and wondered if anyone had heard of it.
--
Robert Uhl <http://public.xdi.org/=ruhl>
Es is nicht gasagt das es besser wird wenn es anders wirt. Wenn es
aber besser werden soll muss es anders werden. --G. Ch. Lichtenberg
Robert Uhl wrote:
> Anyone know aught about <http://www.ufasoft.com/lisp/>? It apparently
> supports CLOS and creating EXEs. Acc. to reference, it's free for
> academic & non-commercial use.
>
> Not really up my alley, as I'm a Unix man, but I ran across it on a
> dodgy shareware site and wondered if anyone had heard of it.
>
The bad thing about Ufasoft Common Lisp is that it has pretty much in
common with CLISP while being free only as in beer. I hope I'm wrong,
but it seems that we have an unpleasant GPL violation here. Some clues
follow...
Ufasoft:
[1]> (macroexpand '(loop for i from 1 to 10 do (print i)))
(MACROLET ((LOOP-FINISH NIL (SYSTEM::LOOP-FINISH-ERROR))) (BLOCK NIL
(LET ((I 1)) (PROGN (LET NIL (MACROLET ((LOOP-FINISH NIL '(GO
SYSTEM::END-LOOP))) (TAGBODY SYSTEM::BEGIN-LOOP (WHEN (> I 10)
(LOOP-FINISH)) (PROGN (PROGN (PRINT I))) (PSETQ I (+ I 1)) (GO
SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP (MACROLET ((LOOP-FINISH NIL
(SYSTEM::LOOP-FINISH-WARN) '(GO SYSTEM::END-LOOP)))))))))))" ;"
T
[2]> (macroexpand '(dotimes (i 10) (print i)))
(BLOCK NIL (LET ((I 0)) (TAGBODY #:G514 (IF (>= I 10) (GO #:G515))
(PRINT I) (PSETQ I (1+ I)) (GO #:G514) #:G515 (RETURN-FROM NIL (PROGN
NIL)))))" ;"
T
[3]> *features*
(:LOOP :CLOS :COMPILER :WIN32 :UFASOFT-LISP :COMMON-LISP :CLISP :ANSI-CL)
[4]>
----
CLISP:
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-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2004
[1]> (macroexpand '(loop for i from 1 to 10 do (print i)))
(MACROLET ((LOOP-FINISH NIL (SYSTEM::LOOP-FINISH-ERROR)))
(BLOCK NIL
(LET ((I 1))
(PROGN
(LET NIL
(MACROLET ((LOOP-FINISH NIL '(GO SYSTEM::END-LOOP)))
(TAGBODY SYSTEM::BEGIN-LOOP (WHEN (> I 10) (LOOP-FINISH)) (PROGN
(PROGN (PRINT I))) (PSETQ I (+ I 1)) (GO SYSTEM::BEGIN-LOOP)
SYSTEM::END-LOOP
(MACROLET ((LOOP-FINISH NIL (SYSTEM::LOOP-FINISH-WARN) '(GO
SYSTEM::END-LOOP))))))))))) ;
T
[2]> (macroexpand '(dotimes (i 10) (print i)))
(BLOCK NIL (LET ((I 0)) (TAGBODY #:G5091 (IF (>= I 10) (GO #:G5092))
(PRINT I) (PSETQ I (1+ I)) (GO #:G5091) #:G5092 (RETURN-FROM NIL (PROGN
NIL))))) ;
T
[3]> *features*
(:ASDF :SYSCALLS :CLX-ANSI-COMMON-LISP :CLX :REGEXP :CLOS :LOOP
:COMPILER :CLISP :ANSI-CL :COMMON-LISP :LISP=CL :INTERPRETER :SOCKETS
:GENERIC-STREAMS :LOGICAL-PATHNAMES :SCREEN :FFI :GETTEXT
:UNICODE :BASE-CHAR=CHARACTER :PC386 :UNIX)
[4]>
(message (Hello 'Robert)
(you :wrote :on '(Sat, 03 Dec 2005 16:44:59 -0700))
(
RU> Anyone know aught about <http://www.ufasoft.com/lisp/>? It apparently
RU> supports CLOS and creating EXEs. Acc. to reference, it's free for
RU> academic & non-commercial use.
last time i checked it (long time ago) it was very bad (i.e. it created
executables, but they just crashed :)
)
(With-best-regards '(Alex Mizrahi) :aka 'killer_storm)
"People who lust for the Feel of keys on their fingertips (c) Inity")