Commit f688a88e authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Removed weird glitch in m-function.

Ignore-this: f3ce43668088338a99bd66c12bb4c405

parent 6865fa72
......@@ -106,7 +106,7 @@
(define-compiler-macro m-function (m)
(handler-case (method-function m)
(error () `(the function (method-function real-method-function (the method ,m)))))))
(error () `(the function (method-function (the method ,m)))))))
(defun compute-argument-order (gf nof-required-args)
(loop with specialized-count = (make-array nof-required-args :initial-element 0)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment