Changeset 4319


Ignore:
Timestamp:
10/11/03 20:41:28 (19 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4316 r4319  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defclass.lisp,v 1.12 2003-10-11 19:49:14 piso Exp $
     4;;; $Id: defclass.lisp,v 1.13 2003-10-11 20:41:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    466466                           slot-properties))
    467467                 direct-slots)))
     468;;     (format t "slots = ~S~%" slots)
    468469    (setf (class-direct-slots class) slots)
    469470    (dolist (direct-slot slots)
     
    501502;;;
    502503
    503 (defclass standard-generic-function ()
     504(defclass standard-generic-function (generic-function)
    504505  ((name :initarg :name)      ; :accessor generic-function-name
    505506   (lambda-list               ; :accessor generic-function-lambda-list
     
    932933
    933934(defun add-reader-method (class fn-name slot-name)
     935;;   (format t "add-reader-method ~S~%" fn-name)
    934936  (ensure-method
    935937   (ensure-generic-function fn-name :lambda-list '(object))
Note: See TracChangeset for help on using the changeset viewer.