[Bug-kawa] [bug #13574] Unbound symbol 134957472o1002644640op (in clisp mode)

[Nigel Galloway]

URL:
  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=13574>

                 Summary: Unbound symbol %do%loop (in clisp mode)
                 Project: Kawa
            Submitted by: nigel_galloway
            Submitted on: Wed 06/29/2005 at 15:37
                Category: None
                Severity: 3 - Normal
              Item Group: Run-time exception
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open

    _______________________________________________________

Details:

> java -jar kawa-1.7.90.jar
#|kawa:1|# (do ((i 2 (+ i 1))) ((> i 5) 'done) (format #t "~A ~A~%" i (* i
i)))
2 4
3 9
4 16
5 25
done
#|kawa:2|# (exit)
Process java exited with code 0

The same command should run in Common Lisp but the result is:

> java -jar kawa-1.7.90.jar --clisp
#|kawa:1|# (do ((i 2 (+ i 1))) ((> i 5) 'done) (format #t "~A ~A~%" i (* i
i)))
gnu.mapping.UnboundSymbol: Unbound symbol %do%loop
        at gnu.expr.Interpreter.getDefaultSymbolValue(Interpreter.java:651)
        at gnu.expr.Interpreter.getSymbolProcedure(Interpreter.java:668)
        at atInteractiveLevel.apply(<stdin>:1)
        at gnu.mapping.CallContext.runUntilDone(CallContext.java:289)
        at gnu.expr.ModuleExp.evalModule(ModuleExp.java:188)
#|kawa:2|#      at kawa.Shell.run(Shell.java:233)
        at kawa.Shell.run(Shell.java:180)
        at kawa.Shell.run(Shell.java:167)
        at kawa.Shell.run(Shell.java:154)
        at kawa.repl.main(repl.java:650)

#|kawa:3|# (exit)







    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=13574>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/