Advertisement
Guest User

Untitled

a guest
Dec 20th, 2017
115
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.17 KB | None | 0 0
  1. COMPILE-FILE-ERROR while
  2. compiling #<CL-SOURCE-FILE "lparallel" "src" "kernel" "kill">
  3. [Condition of type UIOP/LISP-BUILD:COMPILE-FILE-ERROR]
  4.  
  5. ; file: /home/emiherd/.roswell/lisp/quicklisp/dists/quicklisp/software/lparallel-20160825-git/src/kernel/kill.lisp
  6. ; in: DEFUN KILL
  7. ; (LPARALLEL.UTIL:DOSEQUENCE (LPARALLEL.KERNEL::WORKER
  8. ; LPARALLEL.KERNEL::WORKERS)
  9. ; (WHEN
  10. ; (AND (NOT (EQ # #))
  11. ; (EQL LPARALLEL.KERNEL::CATEGORY
  12. ; (LPARALLEL.KERNEL::RUNNING-CATEGORY
  13. ; LPARALLEL.KERNEL::WORKER)))
  14. ; (BORDEAUX-THREADS:DESTROY-THREAD
  15. ; (LPARALLEL.KERNEL::THREAD LPARALLEL.KERNEL::WORKER))
  16. ; (INCF LPARALLEL.KERNEL::KILL-COUNT)))
  17. ; --> BLOCK
  18. ; ==>
  19. ; (FLET ((#:BODY-FN1 (LPARALLEL.KERNEL::WORKER)
  20. ; (WHEN (AND # #)
  21. ; (BORDEAUX-THREADS:DESTROY-THREAD #)
  22. ; (INCF LPARALLEL.KERNEL::KILL-COUNT))))
  23. ; (DECLARE (DYNAMIC-EXTENT (CL+QT:FUNCTION #:BODY-FN1)))
  24. ; (MAP NIL (CL+QT:FUNCTION #:BODY-FN1) LPARALLEL.KERNEL::WORKERS))
  25. ;
  26. ; caught ERROR:
  27. ; DYNAMIC-EXTENT on a weird thing: (CL+QT:FUNCTION #:BODY-FN1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement