Bug#607743: Bug #607743 clisp: starnge behaviour of STORE-VALUE

[Peter Van Eynde]

Hello Miĥail,

Checking this on 2.49 I cannot reproduce the problem:

> Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>
> 
...
...
> TEST[14]> (length "abc")
> 
> *** - The value of L should be of type LIST.
>       The value is: "abc"
> The following restarts are available:
> STORE-VALUE    :R1      Input a new value for L.
> ABORT          :R2      Abort main loop
> Break 1 TEST[15]> :r1
> New L> '(1 2 3 4 5)
> 5


but 2.48 does indeed have this problem:

> Welcome to GNU CLISP 2.48 (2009-07-28) <http://clisp.cons.org/>
> 
> Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
> Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
> Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
> Copyright (c) Bruno Haible, Sam Steingold 1999-2000
> Copyright (c) Sam Steingold, Bruno Haible 2001-2009
> 
> Type :h and hit Enter for context help.
> 
> [1]> (defpackage "TEST"
> (:use "COMMON-LISP"))
> #<PACKAGE TEST>
> [2]>  (in-package test)
> #<PACKAGE TEST>
> TEST[3]> (shadow 'length)
> T
> TEST[4]> (defun length (l)
> (check-type l list)
> (if (null l) 0
> (1+ (length (rest l)))))
> LENGTH
> TEST[5]> (length "abc")
> 
> *** - The value of L should be of type LIST.
>       The value is: "abc"
> The following restarts are available:
> STORE-VALUE    :R1      Input a new value for L.
> ABORT          :R2      Abort main loop
> Break 1 TEST[6]> :r1
> New L: '(1 2 3 4 5)
> 2

A 2.49 upload should fix this in the near future.

Best regards, Peter