daily pastebin goal
26%
SHARE
TWEET

Untitled

a guest Jan 12th, 2018 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (define a 3)
  2. (define define +) #makes define useless
  3. (define a 1) #outputs 4, instead of assigning 1 to a.
  4.    
  5. (define + -)
  6. (+ 1 1) #Output 0.
  7.    
  8. CL-USER 1 > (defun defun () 3)
  9.  
  10. Error: Redefining function DEFUN visible from package COMMON-LISP.
  11.   1 (continue) Redefine it anyway.
  12.   2 (abort) Return to level 0.
  13.   3 Restart top-level loop.
  14.    
  15. * (defun defun () 3)
  16.  
  17. debugger invoked on a SYMBOL-PACKAGE-LOCKED-ERROR:
  18.   Lock on package COMMON-LISP violated when proclaiming DEFUN as a function
  19.   while in package COMMON-LISP-USER.
  20. See also:
  21.   The SBCL Manual, Node "Package Locks"
  22.   The ANSI Standard, Section 11.1.2.1.2
  23.  
  24. Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
  25.  
  26. restarts (invokable by number or by possibly-abbreviated name):
  27.   0: [CONTINUE      ] Ignore the package lock.
  28.   1: [IGNORE-ALL    ] Ignore all package locks in the context of this operation.
  29.   2: [UNLOCK-PACKAGE] Unlock the package.
  30.   3: [ABORT         ] Exit debugger, returning to top level.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top