mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typos in the generation of code for stack-push and stack-push-values.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-27 23:24:17 +01:00
parent dcfc2b35f7
commit eb8dbf74d7
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/new-cmp/cmpstack.lsp
View file

@ -38,16 +38,16 @@
(defun c1stack-push (destination args)
(let* ((var (c1vref (first args)))
(value (second args)))
(c1translate 'VALUE0 value)
(c1stack-frame-push var 'VALUE0)))
(nconc (c1translate 'VALUE0 value)
(c1stack-frame-push var 'VALUE0))))
(defun c1stack-push-values (destination args)
(unless (eq destination 'TRASH)
(error "In C1STACK-PUSH-VALUES, destination should be TRASH"))
(let* ((frame-var (pop args))
(form (pop args)))
(c1translate 'VALUES form)
(c1stack-frame-push-values (c1vref frame-var))))
(nconc (c1translate 'VALUES form)
(c1stack-frame-push-values (c1vref frame-var)))))
(defun c1stack-pop (destination args)
(let* ((frame-var-name (pop args))