Changeset 4104

Timestamp:

09/28/03 18:32:16 (20 years ago)

Author:

piso

Message:

MAKE-INSTANCE-STANDARD-CLASS

File:

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

trunk/j/src/org/armedbear/lisp/StandardClass.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StandardClass.java,v 1.4 2003-09-21 16:58:41 piso Exp $
+ * $Id: StandardClass.java,v 1.5 2003-09-28 18:32:16 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -55 +55 @@
         return sb.toString();
     }
+
+    private static final Primitive MAKE_INSTANCE_STANDARD_CLASS =
+        new Primitive("make-instance-standard-class", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject[] args) throws ConditionThrowable
+        {
+            if (args.length < 1)
+                throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
+            Symbol symbol = checkSymbol(args[0]);
+            return new StandardClass(symbol, NIL);
+        }
+    };
 }