diff options
Diffstat (limited to 'src/interp/slam.boot')
| -rw-r--r-- | src/interp/slam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index 545c7b4d..10754df6 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -438,7 +438,7 @@ compileInteractive fn == clearAllSlams x == fn(x,nil) where fn(thoseToClear,thoseCleared) == - for x in thoseToClear | not MEMQ(x,thoseCleared) repeat + for x in thoseToClear | not symbolMember?(x,thoseCleared) repeat slamListName:= mkCacheName x setDynamicBinding(slamListName,nil) thoseCleared:= ADJOIN(x,thoseCleared) |