Problems with hash-table-setf and system-functions

[Ulrich Hoffmann <uho@informatik.uni-kiel.dbp.de>]

I've discovered a problem with setf on hash-tables with functions.
While CLISP compiles the following code without errors, it cannot read
back the generated .fas-file:

test.lsp------------------------------------------------------------------------
(defvar *v*)

(defun f()
  (setq *v* (make-hash-table))
  (setf (gethash 'list) #'list))
--------------------------------------------------------------------------------

minnie% clisp
 ...
        |                                                         
  ------+------     Copyright (c) Bruno Haible, Michael Stoll 1992, 1993

> (compile-file "test")
   
Compiling file /tmp_mnt/home/karlo/uho/clicc/src/compiler/test.lsp ...

Compilation of file /tmp_mnt/home/karlo/uho/clicc/src/compiler/test.lsp is finished.
0 errors, 0 warnings
T
> (load "test")
;; Loading file /tmp_mnt/home/karlo/uho/clicc/src/compiler/test.fas ...
*** - READ from #<STRING-CHAR-FILE-STREAM #"/tmp_mnt/home/karlo/uho/clicc/src/compiler/test.fas">: objects printed as #<...> cannot be read back in
1. Break> 

--------------------------------------------------------------------------------
 
The problem seems to be, that the (function list) becomes the
unprintable object #<SYSTEM-FUNCTION LIST> in the .fas file.


Any comments?

             Ulrich


Ulrich Hoffmann                  email: uho@informatik.uni-kiel.dbp.de  
Institut fuer Informatik, Universitaet Kiel        Tel: +49 431 560426 
Preusserstr 1-9, D-2300 Kiel 1, Germany            Fax: +49 431 566143