bugKawa - Bugs: bug #13574, Unbound symbol %do%loop (in clisp...

 
 

bug #13574: Unbound symbol %do%loop (in clisp mode)

Submitter:  Nigel Galloway <nigel_galloway>
Submitted:  Wed 29 Jun 2005 03:37:05 PM UTC
   
 
Category:  None Severity:  3 - Normal
Item Group:  Run-time exception Status:  Postponed
Privacy:  Public Assigned to:  bothner
Open/Closed:  Open
* Mandatory Fields

Add a New Comment Rich Markup
   

Thu 30 Jun 2005 06:05:32 AM UTC, comment #1: 

It appears that this is because we get the do macro defined for Scheme, which doesn't quite work, probably because it ends up expanding using an inconsistent mix of Scheme and Common Lisp forms.

Per Bothner <bothner>
Group administrator
Wed 29 Jun 2005 03:37:05 PM UTC, original submission:  


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

Nigel Galloway <nigel_galloway>

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

CC list is empty

 

There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

Only logged-in users can vote.

 

Follow 2 latest changes.

Date Changed by Updated Field Previous Value => Replaced by
2005-06-30 bothner StatusNone Postponed
    Assigned toNone bothner

Back to the top

Powered by Savane 3.13-4448.
Corresponding source code