[Mit-cadr-cvs] r320 - trunk/lisp/cold

[rswindells at common-lisp.net]

Author: rswindells
Date: Sun Nov  4 15:20:57 2012
New Revision: 320

Log:
Add globals for GETF, WHEN, UNLESS.

Typo UNDELETF -> UNDELETEF.

Modified:
   trunk/lisp/cold/global.lisp

Modified: trunk/lisp/cold/global.lisp
==============================================================================
--- trunk/lisp/cold/global.lisp	Sun Nov  4 03:49:40 2012	(r319)
+++ trunk/lisp/cold/global.lisp	Sun Nov  4 15:20:57 2012	(r320)
@@ -579,6 +579,7 @@
  GET-PNAME
  GETCHAR
  GETCHARN
+ GETF
  GETHASH
  GETHASH-EQUAL
  GETL
@@ -913,6 +914,7 @@
  SELECTQ
  SELECTQ-EVERY
  SELF
+ SEND
  SET
  SET-CHARACTER-TRANSLATION
  SET-CURRENT-BAND
@@ -939,6 +941,7 @@
  SIGNP
  SIN
  SIND
+ SITE-NAME
  SIXTH
  SMALL-FLOAT
  SMALL-FLOATP
@@ -1052,8 +1055,9 @@
  UNCOMPILE
  UNDEFMETHOD
  UNDEFUN
- UNDELETF
+ UNDELETEF
  UNION
+ UNLESS
  UNMONITOR-VARIABLE
  UNSPECIAL
  UNTRACE
@@ -1067,6 +1071,7 @@
  VALUES-LIST
  WHERE-IS
  WHAT-FILES-CALL
+ WHEN
  WHO-CALLS
  WHO-USES
  WITHOUT-INTERRUPTS