Changeset 4077


Ignore:
Timestamp:
09/26/03 18:39:49 (19 years ago)
Author:
piso
Message:
  • EVAL-WHEN is now implemented in Primitives.java.
  • Added stubs for DEFCLASS and DEFMETHOD.
File:
1 edited

Legend:

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

    r4003 r4077  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: fixme.lisp,v 1.5 2003-09-22 17:20:27 piso Exp $
     4;;; $Id: fixme.lisp,v 1.6 2003-09-26 18:39:49 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3535  `(progn ,@forms))
    3636
    37 ;; Should be a special operator.
    38 (defmacro eval-when (situation &rest forms)
    39   `(progn ,@forms))
    40 
    4137(defun proclaim (decl)
    4238  nil)
     
    6864  `(prog1
    6965    (sys::%defun ',function-name ',lambda-list nil)))
     66
     67(defmacro defclass (&rest args)
     68  nil)
     69
     70(defmacro defmethod (&rest args)
     71  nil)
Note: See TracChangeset for help on using the changeset viewer.