Changeset 5236


Ignore:
Timestamp:
12/20/03 19:54:08 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r5235 r5236  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.54 2003-12-20 19:06:48 piso Exp $
     4;;; $Id: clos.lisp,v 1.55 2003-12-20 19:54:08 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    10921092        (remove method (generic-function-methods gf)))
    10931093  (setf (method-generic-function method) nil)
    1094 ;;   (format t "remove-method method-specializers = ~S~%" (method-specializers method))
    10951094  (dolist (class (method-specializers method))
    10961095    (setf (class-direct-methods class)
     
    11371136(defun subclassp (c1 c2)
    11381137  (not (null (find c2 (class-precedence-list c1)))))
    1139 
    1140 ;;;
    1141 ;;; Generic function invocation
    1142 ;;;
    1143 
    1144 ;;; apply-generic-function
    1145 
    1146 (defun apply-generic-function (gf args)
    1147   (apply (generic-function-discriminating-function gf) args))
    1148 
    1149 ;;; compute-discriminating-function
    11501138
    11511139(defun std-compute-discriminating-function (gf)
Note: See TracChangeset for help on using the changeset viewer.