Changeset 5857


Ignore:
Timestamp:
02/16/04 19:14:42 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5750 r5857  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.67 2004-02-10 16:19:45 piso Exp $
     4;;; $Id: jvm.lisp,v 1.68 2004-02-16 19:14:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    939939
    940940(defun write-u1 (n)
    941   (write-byte (logand n #xFF) *stream*))
     941  (sys::write-8-bits (logand n #xFF) *stream*))
    942942
    943943(defun write-u2 (n)
    944   (write-byte (ash n -8) *stream*)
    945   (write-byte (logand n #xFF) *stream*))
     944  (sys::write-8-bits (ash n -8) *stream*)
     945  (sys::write-8-bits (logand n #xFF) *stream*))
    946946
    947947(defun write-u4 (n)
     
    24432443        (function-lambda-expression definition-designator)
    24442444        (when closure-p
    2445           (error "unable to compile function defined in non-null lexical environment"))
     2445          (error "Unable to compile function defined in non-null lexical environment."))
    24462446  (unless lambda-expression
    2447     (error "can't find a definition"))
     2447    (error :format-control "Can't find a definition for ~S."
     2448                 :format-arguments (list definition-designator)))
    24482449        lambda-expression)))
    24492450
     
    25882589          ))))
    25892590
    2590 (defmacro defun (name lambda-list &rest body)
     2591(defmacro defun (name lambda-list &rest body &environment environment)
    25912592  `(progn
    2592      (sys::%defun ',name ',lambda-list ',body)
    2593      (compile ',name)
     2593     (sys::%defun ',name ',lambda-list ',body ,environment)
     2594     (ignore-errors (compile ',name))
    25942595     ',name))
    25952596
Note: See TracChangeset for help on using the changeset viewer.