Changeset 8466


Ignore:
Timestamp:
02/05/05 17:45:29 (17 years ago)
Author:
piso
Message:

P2-EVAL-WHEN

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r8465 r8466  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.391 2005-02-05 16:38:40 piso Exp $
     4;;; $Id: jvm.lisp,v 1.392 2005-02-05 17:45:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    38663866  (when (eq representation :unboxed-fixnum)
    38673867    (emit-unbox-fixnum)))
     3868
     3869(defun p2-eval-when (form &key (target :stack) representation)
     3870  (cond ((or (memq :execute (cadr form))
     3871             (memq 'eval (cadr form)))
     3872         (compile-progn-body (cddr form) target)
     3873         (when (eq representation :unboxed-fixnum)
     3874           (emit-unbox-fixnum)))
     3875        (t
     3876         (emit-push-nil)
     3877         (emit-move-from-stack target))))
    38683878
    38693879(defun compile-quote (form &key (target :stack) representation)
     
    57935803(install-p2-handler 'cons           'p2-cons)
    57945804(install-p2-handler 'eql            'p2-eql)
     5805(install-p2-handler 'eval-when      'p2-eval-when)
    57955806(install-p2-handler 'flet           'p2-flet)
    57965807(install-p2-handler 'go             'p2-go)
Note: See TracChangeset for help on using the changeset viewer.