mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

Add regression test for #46

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-20 12:17:08 +01:00
parent 5e290c92d3
commit 023fe5a369
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/tests/normal-tests/metaobject-protocol.lsp
View file

@ -622,3 +622,18 @@ the metaclass")
#'f (list (find-class 'c))))))
;;; Bug #46
;;;
;;; Reported 2016-05-30
;;;
;;; Description: DEFGENERIC doesn't create methods on same pass as
;;; creating generics.
(test mop.0021.ensure-generic
(is (progn (fmakunbound 'mop.0021.ensure-generic.fun)
(defun mop.0021.ensure-generic.fun () 'hi)
(with-temporary-file (input-file "
(fmakunbound 'mop.0021.ensure-generic.fun)
(defmethod mop.0021.ensure-generic.fun () (print 'bye))
")
(compile-file input-file)))))