scigraph

[Sheldon S. Ball <ssb@fiona.umsmed.edu>]

Some progress porting Scigraph to MCL 2.0/CLIM 1.1.
Scigraph has been loaded but signals an error
with (make-demo-frame).

The problem (I believe) is in process-run-function in
dwim:extensions.lisp.
Actually there are a number of #FEATURE-CASE expressions
which are potential problems, but one at a time.
Below is code from dwim:extensions.lisp which
signals an error upon invoking (make-demo-frame).

;;;****************** code from extensions.lisp

;;;***** Should lucid-procees-run-function-hack be
;;;*****        lucid-process-run-function-hack ???

(defun process-run-function (name-or-keywords function &rest args)
  (let* ((new-args (copy-list args))		; in case of stack-allocation
	 (predicate
	  (if args #'(lambda () (apply function new-args)) function)))
    #FEATURE-CASE
    ((:ALLEGRO
      (funcall #'mp:process-run-function name-or-keywords predicate))
     (:GENERA
      (funcall #'scl:process-run-function name-or-keywords predicate))
     (:LUCID
      (flet ((lucid-procees-run-function-hack (NAME-OR-KEYWORDS
					       &rest FNCT-LIST)
	       (let ((FNCT-NAME (first FNCT-LIST))
		     (FNCT-ARGS (copy-list (cdr FNCT-LIST))))
		 (if (consp NAME-OR-KEYWORDS)
		     (apply #'lcl::make-process
			    :function FNCT-NAME
			    :args FNCT-ARGS
			    NAME-OR-KEYWORDS)
		     (lcl::make-process
		      :name NAME-OR-KEYWORDS
		      :function FNCT-NAME
		      :args FNCT-ARGS)))))
	(apply #'lucid-procees-run-function-hack
	       name-or-keywords function args))))))

;;;****************** end code from extensions.lisp

Apropos on "process" "run" & "function" did not turn up anything
I could get to work.

Any suggestions???
Thanks, Sheldon