Does anyone have experience getting FUF (a natural language generation
program) to work in windows with ACL 6?  It's got an initialization file
supposedly specifically for ACL, but it doesn't seem to work at all.
I'm too much of a newbie to really understand what's going on.

..

Here is some of the initialization file.  Maybe someone here will have a
clue as to what it does.  As you can see, it was made for ACL 4.0.

Thanks,
David
P.S. Please CC me, as I'm not sure if my subscribe request went through.

;;; -*- Mode:Lisp; Syntax:Common-Lisp; Package:COMMON-LISP -*-
;;;
-----------------------------------------------------------------------
;;; File:         .lisprc-acl
;;; Description:  Init file for Allegro CL. version 4.0
;;;               Redef. of load, require and cd to
;;;               expand environment variables.
;;; Author:       Michael Elhadad
;;; Created:      04-Sep-92
;;; Modified:     
;;; Package:      EXCL
;;;
-----------------------------------------------------------------------

;;; This way all the functions are visible in all packages
(in-package common-lisp)

(setq excl:*cltl1-in-package-compatibility-p* t)
(load "src/loop")
(import '(cltl1:provide cltl1:require))
(export '(provide require))
(setq *load-verbose* t)
(setq excl:*record-source-files* t)
(setq excl:*redefinition-warnings* nil)
(setq system:*source-file-types* '("l" "lisp" nil))
(setq *debug-print-length* nil
      *debug-print-level* nil
      *print-length* nil
      *print-level* nil)
(setq excl:*fasl-default-type* "fasl")
(setq system:*load-search-list*
      '(*default-pathname-defaults*
	#p(:type "fasl") #p(:type "l")
	#p(:type "lisp") 
	excl::*library-code-fasl-pathname*
	excl::*library-code-cl-pathname* 
	excl::*library-code-bin-pathname*))

(setq tpl:*prompt* 
      #'(lambda (cmdn) 
	  (format nil "~A ~s> " 
		  (if (package-nicknames *package*)
		    (car (package-nicknames *package*))
		    (package-name *package*))
		  cmdn)))

;; Since there is no way in ACL to change the value of a shell variable
(no
;; setenv), I fake it here with an A-list.
(defvar *shell-environ* nil "Private cache of shell environment")

(defun setenv (var val)
  (pushnew (cons var val) *shell-environ* :test #'equal))