[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Problems with hash-table-setf and system-functions

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:

(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
> (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 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