Skip to content

on loading clhs-use-local.el, debugger entered due to inability to make symlinks #10

@saraf

Description

@saraf

Installation does not work when using with quicklisp on windows 10

Break 4 [6]> (clhs:print-emacs-setup-form)


[ Quicklisp directory: "C:\home\quicklisp\" (exists)
  If the above location is not correct, do:
  (setf clhs:*quicklisp-directory* "\\\\path\\\\to\\\\quicklisp\\\\") ]

(clhs-use-local.el was found in your quicklisp directory.
Moreover, its version matches the one bundled with this CLHS ASDF wrapper.
You may proceed with step 2 of 2 below.)
Make Emacs evaluate this form to browse the CLHS locally:
(load "C:\\\\home\\\\quicklisp\\\\clhs-use-local.el" t)
Debugger entered--Lisp error: (file-error "Making symbolic link" "Operation not permitted" "dists/quicklisp/software/clhs-0.6.3/HyperSpec-7-0/HyperSpec/" "c:/home/quicklisp/HyperSpec")
  make-symbolic-link("dists/quicklisp/software/clhs-0.6.3/HyperSpec-7-0/HyperSpec/" "c:/home/quicklisp/HyperSpec" t)
  (let ((absolute (quicklisp-clhs-hyperspec-location))) (make-symbolic-link (if relativep (file-relative-name absolute quicklisp-clhs-base) absolute) (quicklisp-clhs-symlink-location) t))
  quicklisp-clhs-setup-symlink(t)
  (if (quicklisp-clhs-inhibit-symlink-p) nil (quicklisp-clhs-setup-symlink (if (quicklisp-clhs-inhibit-symlink-relative-p) nil t)))
  (quicklisp-clhs-setup-hyperspec-root (if (quicklisp-clhs-inhibit-symlink-p) nil (quicklisp-clhs-setup-symlink (if (quicklisp-clhs-inhibit-symlink-relative-p) nil t))))
  eval-buffer(#<buffer  *load*> nil "c:/home/quicklisp/clhs-use-local.el" nil t)  ; Reading at buffer position 2599
  load-with-code-conversion("c:/home/quicklisp/clhs-use-local.el" "c:/home/quicklisp/clhs-use-local.el" t nil)
  load("C:\\home\\quicklisp\\clhs-use-local.el" t)
  eval((load "C:\\home\\quicklisp\\clhs-use-local.el" t) nil)
  eval-expression((load "C:\\home\\quicklisp\\clhs-use-local.el" t) nil)
  funcall-interactively(eval-expression (load "C:\\home\\quicklisp\\clhs-use-local.el" t) nil)
  call-interactively(eval-expression record nil)
  command-execute(eval-expression record)
  execute-extended-command(nil "eval-expression" "eval-expression")
  funcall-interactively(execute-extended-command nil "eval-expression" "eval-expression")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)

[I edited your comment to use triple-backtick code block quoting instead of single-backtick quoting. Much better...]

Metadata

Metadata

Assignees

No one assigned

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions