From b8df1db9c8ebfe8342f5cf5f4e001ae9d9a65aa1 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 13 Aug 2007 13:36:37 +0000 Subject: [PATCH] 1.0.8.22: merge MAKE-METHOD-FUNCTION and MAKE-METHOD-FUNCTION-INTERNAL * First was the only caller of the latter -- just move the body to the call site. --- src/pcl/boot.lisp | 3 --- version.lisp-expr | 2 +- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp index b4a4a26..8e15dc8 100644 --- a/src/pcl/boot.lisp +++ b/src/pcl/boot.lisp @@ -513,9 +513,6 @@ bootstrapping. (sb-c:source-location))) (defmacro make-method-function (method-lambda &environment env) - (make-method-function-internal method-lambda env)) - -(defun make-method-function-internal (method-lambda &optional env) (multiple-value-bind (proto-gf proto-method) (prototypes-for-make-method-lambda nil) (multiple-value-bind (method-function-lambda initargs) diff --git a/version.lisp-expr b/version.lisp-expr index 1235912..0adb185 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.8.21" +"1.0.8.22" -- 1.7.10.4