Author: bernhard
Date: Thu May 31 12:06:36 2007
New Revision: 18711
Modified:
trunk/languages/lisp/cl.pir
trunk/languages/lisp/eval.pir
trunk/languages/lisp/internals.pir
Log:
[languages/lisp]
Minor beautifications.
Modified: trunk/languages/lisp/cl.pir
==============================================================================
--- trunk/languages/lisp/cl.pir (original)
+++ trunk/languages/lisp/cl.pir Thu May 31 12:06:36 2007
@@ -1,5 +1,11 @@
# $Id$
+=head2
+
+Set up the package 'COMMON-LISP'
+
+=cut
+
.sub _init_cl
.local pmc function
.local pmc package
Modified: trunk/languages/lisp/eval.pir
==============================================================================
--- trunk/languages/lisp/eval.pir (original)
+++ trunk/languages/lisp/eval.pir Thu May 31 12:06:36 2007
@@ -71,9 +71,8 @@
goto FUNCTION_LOOP
FUNCTION_CALL:
- retv = _FUNCTION_CALL(function,funcargs)
+ .return _FUNCTION_CALL(function,funcargs)
# VALID_IN_PARROT_0_2_0 goto DONE
- .return(retv)
FUNCTION_NOT_FOUND:
.ERROR_1("undefined-function", "%s is not a function name", symbol)
Modified: trunk/languages/lisp/internals.pir
==============================================================================
--- trunk/languages/lisp/internals.pir (original)
+++ trunk/languages/lisp/internals.pir Thu May 31 12:06:36 2007
@@ -456,6 +456,7 @@
.sub _IS_TYPE
.param pmc args
.param string rtype
+
.local string atype
.local int retv
