Changeset 9230


Ignore:
Timestamp:
05/22/05 17:30:02 (16 years ago)
Author:
piso
Message:

sys:generic-function-discriminating-function => mop::funcallable-instance-function

File:
1 edited

Legend:

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

    r9144 r9230  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: disassemble.lisp,v 1.2 2005-05-11 19:57:34 piso Exp $
     4;;; $Id: disassemble.lisp,v 1.3 2005-05-22 17:30:02 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3030    (setf fn (symbol-function fn)))
    3131  (let ((function (cond ((typep fn 'generic-function)
    32                          (generic-function-discriminating-function fn))
     32                         (mop::funcallable-instance-function fn))
    3333                        ((functionp fn)
    3434                         fn))))
Note: See TracChangeset for help on using the changeset viewer.