Erroneous error message on adding methods to the documentation GF.

ID	Created	Type	mocl Version	Dev OS	Target	Status
#68	by informatimago on 2015-03-01 (1952 days ago)	defect	14.08	Mac OS X	n/a	open

Description

Summary:

Steps to Reproduce:

Compile the program:


(defvar *thingy-docs* (make-hash-table))

(defmethod documentation ((object t) (doc-type (eql 'my-own-thingy)))
  (gethash object *thingy-docs*))

Expected Results:

A method should be added to the CL:DOCUMENTATION generic function.

Actual Results:

We get an invalid error.  It is perfectly allowed to add methods to CL:DOCUMENTATION (and to other standard generic functions, as long as it's not on standard objects.  my-own-thingy is not a standard CL object!!!



n=bug-constant       ; mkdir -p /tmp/${n}/src ; mocl --verbose --warn --android /tmp/${n} ${n}.lisp
mocl 14.08 Copyright (C) 2013-2014 Wukix, Inc. (https://wukix.com)
[Source Analysis]
/Users/pjb/src/mocl/bug-constant.lisp
  defconstant  cr
  defparameter +c+cr+
[Finalization]
  finalizing classes
  finalizing generic functions
[Optimization]
  dead code elimination
  tail recursion elimination
  type inference (level 0)
  code graph analysis
  substitution and simplification
  dead code elimination
  code graph analysis
  side effect analysis
  let form optimization
  type inference (level 2)
  substitution and simplification
  dead code elimination
  code graph analysis
[Code Generation]
  /private/tmp/bug-constant/jni/mocl/program.h
  /private/tmp/bug-constant/jni/mocl/program.c
n=bug-documentation  ; mkdir -p /tmp/${n}/src ; mocl --verbose --warn --android /tmp/${n} ${n}.lisp
mocl 14.08 Copyright (C) 2013-2014 Wukix, Inc. (https://wukix.com)
[Source Analysis]
/Users/pjb/src/mocl/bug-documentation.lisp
Error in form DOCUMENTATION
 -> It is illegal to redefine the function DOCUMENTATION
make: [check-bugs] Error 1 (ignored)

Notes:

Comments

(no comments)