1 |
;;;; Copyright (C) 2000,2001 Free Software Foundation, Inc. |
;;;; Copyright (C) 2000,2001, 2002 Free Software Foundation, Inc. |
2 |
;;;; |
;;;; |
3 |
;;;; This program is free software; you can redistribute it and/or modify |
;;;; This program is free software; you can redistribute it and/or modify |
4 |
;;;; it under the terms of the GNU General Public License as published by |
;;;; it under the terms of the GNU General Public License as published by |
210 |
`documentation' property set." |
`documentation' property set." |
211 |
(or (and (procedure? object) |
(or (and (procedure? object) |
212 |
(proc-doc object)) |
(proc-doc object)) |
213 |
|
(and (defmacro? object) |
214 |
|
(proc-doc (defmacro-transformer object))) |
215 |
(and (macro? object) |
(and (macro? object) |
216 |
(let ((transformer (macro-transformer object))) |
(let ((transformer (macro-transformer object))) |
217 |
(and transformer |
(and transformer |