Changeset 4665 for trunk/j/src/org/armedbear/lisp/compiler.lisp
- Timestamp:
- 11/07/03 18:26:32 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/compiler.lisp
r4654 r4665 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: compiler.lisp,v 1.5 8 2003-11-05 19:34:56piso Exp $4 ;;; $Id: compiler.lisp,v 1.59 2003-11-07 18:26:32 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 33 33 (when (oddp (length exprs)) 34 34 (error "odd number of arguments to SETQ")) 35 (do* ((result '(setq)) 36 (sym (car exprs) (car exprs)) 37 (val (cadr exprs) (cadr exprs))) 38 ((null exprs) result) 39 (setq result (append result (list sym) (list (compile-sexp val)))) 40 (setq exprs (cddr exprs)))) 35 (if (= 2 (length exprs)) 36 (list 'SETQ (car exprs) (compile-sexp (cadr exprs))) 37 (do* ((result '(setq)) 38 (sym (car exprs) (car exprs)) 39 (val (cadr exprs) (cadr exprs))) 40 ((null exprs) result) 41 (setq result (append result (list sym) (list (compile-sexp val)))) 42 (setq exprs (cddr exprs))))) 41 43 42 44 (defun compile-cond (clauses)
Note: See TracChangeset
for help on using the changeset viewer.