Scott E. Fahlman wrote on Fri, Aug 02, 2002 at 02:10:23PM -0400: 
>
> P.S. Another way to go is to use ilisp as the front end for CMUCL.  I
> haven't used ilisp in years, but it seems to have a lot of nice features.
> Do any of you use this? 

Depends on what level you ask.  Working, ilisp does fine for me.

I just must not start thinking that we use a single-threaded
non-static-scope Lisp to control the editor, with no graphics to speak
of, or objects to capture from screen. etc. pp.  You name it.  Insert
rant here.

> Are there any tricks to setting thisup with CMUCL?

I don't like their default capturing of Control-Z.  Here's my basic
setup (not the original filem cut'n'pasted, parts may be missing).


(setq ilisp-*prefix* [?\C-o])
(setq ilisp-*arglist-message-lisp-space-p* nil)
(add-hook 'cmulisp-hook
          '(lambda ()
             (setq comint-prompt-regexp 
"^\\([0-9]+\\]+\\|\\*\\|[-a-zA-Z0-9]*\\[[0-9]+\\]:\\|^.*Yes, Master\\?\\) ")
             (setq ilisp-binary-extension "x86f")
             (setq ilisp-init-binary-extension "x86f")
             (setq ilisp-binary-command "\"x86f\"")
             (define-key ilisp-mode-map "\C-c\C-\\" 'send-sigquit)))
(defun ilisp-cra-mode () (interactive)
  (require 'cl)
  (setq lisp-indent-function 'common-lisp-indent-function)
  (put 'with-open-file 'lisp-indent-function 1)
  (put 'with-cooked-string 'lisp-indent-function 1)
  (put 'dotimes 'lisp-indent-function 1)
  (put 'dolist 'lisp-indent-function 1)
  (put 'block 'lisp-indent-function 1)
  (put 'ecase 'lisp-indent-function 1)
  (put 'if 'lisp-indent-function nil)
  )
(ilisp-cra-mode)
(setq common-lisp-hyperspec-root "file:/home/cracauer/elisp/HyperSpec/")
(setq cmulisp-program "cmucl")
(setq cmulisp-local-source-directory "/home/cracauer/work/cvs-cmucl-work/src")

Reply via email to