Changeset 4290 for trunk/j/src/org/armedbear/lisp/defclass.lisp

Timestamp:

10/10/03 17:17:24 (19 years ago)

Author:

piso

Message:

ALLOCATE-INSTANCE

File:

• trunk/j/src/org/armedbear/lisp/defclass.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/defclass.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: defclass.lisp,v 1.3 2003-10-10 17:02:46 piso Exp $
+;;; $Id: defclass.lisp,v 1.4 2003-10-10 17:17:24 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -349 +349 @@
                           secret-unbound-value)))
 
+(defun allocate-instance (class)
+  (std-allocate-instance class))
+
 (defun make-instance-standard-class (metaclass &key name direct-superclasses direct-slots
                                                &allow-other-keys)