Changeset 4668
- Timestamp:
- 11/07/03 19:14:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/jvm.lisp
r4663 r4668 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: jvm.lisp,v 1.1 3 2003-11-07 16:17:24piso Exp $4 ;;; $Id: jvm.lisp,v 1.14 2003-11-07 19:14:00 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 1666 1666 (error "COMPILE-FUNCTION: unsupported case: ~S" form))))) 1667 1667 1668 (defun compile-return (form)1669 (let* ((rest (cdr form))1670 (block-label nil)1671 (block-exit (cdr (assoc block-label *blocks*)))1672 (result-form (car rest)))1673 (unless block-exit1674 (error "no block named ~S is currently visible" block-label))1675 (compile-form result-form)1676 (emit 'goto `,block-exit)))1677 1678 1668 (defun compile-return-from (form) 1679 1669 (let* ((rest (cdr form)) … … 2013 2003 progn 2014 2004 quote 2015 return2016 2005 return-from 2017 2006 setq
Note: See TracChangeset
for help on using the changeset viewer.