From 7532ec12d083bab34eede6eb7dac723e673b2fc0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 30 Sep 2002 07:56:21 +0000 Subject: [PATCH 1/1] r2906: *** empty log message *** --- src/readmacros-mcl.lisp | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 src/readmacros-mcl.lisp diff --git a/src/readmacros-mcl.lisp b/src/readmacros-mcl.lisp deleted file mode 100644 index ac20c36..0000000 --- a/src/readmacros-mcl.lisp +++ /dev/null @@ -1,39 +0,0 @@ -;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: UFFI -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: readmacros-mcl.cl -;;;; Purpose: This file holds functions using read macros for MCL -;;;; Programmer: Kevin M. Rosenberg/John Desoi -;;;; Date Started: Feb 2002 -;;;; -;;;; $Id: readmacros-mcl.lisp,v 1.1 2002/09/30 07:51:01 kevin Exp $ -;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; UFFI users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. -;;;; ************************************************************************* - -(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) -(in-package :uffi) - - -;; trap macros don't work right directly in the macros -#+(and mcl (not openmcl)) -(defun new-ptr (size) - (#_NewPtr size)) - -#+(and mcl (not openmcl)) -(defun dispose-ptr (ptr) - (#_DisposePtr ptr)) - -#+openmcl -(defmacro new-ptr (size) - `(ccl::malloc ,size)) - -#+openmcl -(defmacro dispose-ptr (ptr) - `(ccl::free ,ptr)) - -- 2.34.1