daily pastebin goal
10%
SHARE
TWEET

Untitled

a guest Jan 12th, 2018 44 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
Top