Path: utzoo!attcan!uunet!tut.cis.ohio-state.edu!pt.cs.cmu.edu!gs2.sp.cs.cmu.edu!jdg
From: jdg@gs2.sp.cs.cmu.edu (John Greiner)
Newsgroups: comp.lang.lisp
Subject: Need info on dialect dependent fns
Keywords: Common Lisp, IBUKI, dialects
Message-ID: <8542@pt.cs.cmu.edu>
Date: 22 Mar 90 15:02:50 GMT
Distribution: na
Organization: Carnegie-Mellon University, CS/RI
Lines: 25

I'm trying to translate some IBUKI CL specific code to other versions,
so that my code will be reasonably portable.  I can test the code under
Allegro, Kyoto, Lucid, and CMU CL, but I'd appreciate help in translating
the following to any CL dialect.

1) (gbc <x>)  --  force GC at specified level of completeness
2) (system:getenv "FOO")  --  get a csh environment value
3) (handler-case <x> ...)  --  to handle exceptions raised in <x>
4) (defun system:terminal-interrupt ...)  --  to route control on ^C,
   avoiding lisp's top-level loop
5) (setf (symbol-function 'system:top-level) ...)  --  to define my own
   top-level loop so that the normal one is never used [the code is a
   Scheme interpreter]
6) (system:save-system "FOO")  --  dump the lisp image into an executable
   file, which calls the (redefined) system:top-level upon startup
7) (system "FOO BAR")  --  to execute the csh command "FOO" with argument
   "BAR"

I'd also appreciate pointers to things like (setq *gc-silence* t) which is
necessary in Lucid, that I wouldn't necessarily guess.

--
John Greiner ===== John.Greiner@cs.cmu.edu ===== Carnegie Mellon University
-- 
John Greiner ===== John.Greiner@cs.cmu.edu ===== Carnegie Mellon University