Changeset 13066 for trunk/source/level-1/l1-aprims.lisp
- Timestamp:
- Oct 21, 2009, 7:11:41 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-aprims.lisp
r12937 r13066 2 2 ;;; 3 3 ;;; Copyright (C) 1994-2001 Digitool, Inc 4 ;;; This file is part of OpenMCL.4 ;;; This file is part of Clozure CL. 5 5 ;;; 6 ;;; OpenMCL is licensed under the terms of the Lisp Lesser GNU Public7 ;;; License , known as the LLGPL and distributed with OpenMCL as the6 ;;; Clozure CL is licensed under the terms of the Lisp Lesser GNU Public 7 ;;; License , known as the LLGPL and distributed with Clozure CL as the 8 8 ;;; file "LICENSE". The LLGPL consists of a preamble and the LGPL, 9 ;;; which is distributed with OpenMCL as the file "LGPL". Where these9 ;;; which is distributed with Clozure CL as the file "LGPL". Where these 10 10 ;;; conflict, the preamble takes precedence. 11 11 ;;; 12 ;;; OpenMCL is referenced in the preamble as the "LIBRARY."12 ;;; Clozure CL is referenced in the preamble as the "LIBRARY." 13 13 ;;; 14 14 ;;; The LLGPL is also available online at … … 1136 1136 (defun configure-egc (e0size e1size e2size) 1137 1137 "If the EGC is currently disabled, put the indicated threshold sizes in 1138 effect and returns T, otherwise, returns NIL. (The provided threshold sizes 1139 are rounded up to a multiple of 64Kbytes in OpenMCL 0.14 and to a multiple 1140 of 32KBytes in earlier versions.)" 1138 effect and returns T, otherwise, returns NIL. The provided threshold sizes 1139 are rounded up to a multiple of 64Kbytes." 1141 1140 (let* ((was-enabled (egc-active-p)) 1142 1141 (e2size (require-type e2size '(unsigned-byte 18)))
Note: See TracChangeset
for help on using the changeset viewer.