Changeset 10187


Ignore:
Timestamp:
10/22/05 19:32:40 (16 years ago)
Author:
piso
Message:

FSET: added documentation parameter.

File:
1 edited

Legend:

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

    r9634 r10187  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: fdefinition.lisp,v 1.14 2005-07-10 20:22:44 piso Exp $
     4;;; $Id: fdefinition.lisp,v 1.15 2005-10-22 19:32:40 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5959  nil)
    6060
    61 (defun fset (name function &optional source-position arglist)
     61(defun fset (name function &optional source-position arglist documentation)
    6262  (cond ((symbolp name)
    6363         (check-redefinition name)
     
    6565         (when arglist
    6666           (%set-arglist function arglist))
     67         (%set-documentation function 'function documentation)
    6768         (%set-symbol-function name function))
    6869        ((setf-function-name-p name)
    6970         (check-redefinition name)
    7071         (record-source-information name nil source-position)
    71          ;; FIXME arglist
     72         ;; FIXME arglist documentation
    7273         (setf (get (%cadr name) 'setf-function) function))
    7374        (t
Note: See TracChangeset for help on using the changeset viewer.