From 86d2fc3b544867625d09bb29b5adce0d34343e3f Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Sun, 16 Feb 2003 15:41:03 +0000 Subject: [PATCH] * compiler/generic/new-genesis.lisp (cold-register-foreign-linkage): Put in #+linkage-table. --- compiler/generic/new-genesis.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp index 5fa5ebe36..059117241 100644 --- a/compiler/generic/new-genesis.lisp +++ b/compiler/generic/new-genesis.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.51 2003/02/01 19:47:17 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.52 2003/02/16 15:41:03 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1944,7 +1944,7 @@ (defvar *cold-linkage-table* (make-array 8192 :adjustable t :fill-pointer 0)) (defvar *cold-foreign-hash* (make-hash-table :test #'equal)) - +#+linkage-table (defun cold-register-foreign-linkage (sym type) (let ((entry-num (register-foreign-linkage sym type -- GitLab