;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: allocation.cl,v 1.2 2002/03/21 14:49:14 kevin Exp $
+;;;; $Id: allocation.cl,v 1.3 2002/03/21 19:47:20 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(setf (fli:dereference ptr) 0))
#+cmu
(alien:with-alien ((ptr alien:signed))
- (setf ptr 0))
+ (let ((p (alien:addr ptr)))
+ (setf (alien:deref p) 0)))
)
(defun stk-vector ()
)
+(stk-vs-stat)
+