Paste number 304676: | guix-hydra-latest-builds error |
Pasted by: | civodul |
When: | 6 years, 7 months ago |
Share: | Tweet this! | http://paste.lisp.org/+6J38 |
Channel: | None |
Paste contents: |
Debugger entered--Lisp error: (void-function guix-keyword-args-let) (guix-keyword-args-let args ((parent-group :parent-group (quote guix)) (parent-faces-group :parent-faces-group (quote guix-faces)) (group-doc :group-doc (format "Settings for '%s' buffers." type-str)) (faces-group-doc :faces-group-doc (format "Faces for '%s' buffers." type-str))) (list (quote progn) (list (quote defgroup) group nil group-doc (quote :group) (list (quote quote) parent-group)) (list (quote defgroup) faces-group nil faces-group-doc (quote :group) (list (quote quote) group) (quote :group) (list (quote quote) parent-faces-group)))) (let* ((type-str (symbol-name type)) (prefix (concat "guix-" type-str)) (group (intern prefix)) (faces-group (intern (concat prefix "-faces")))) (guix-keyword-args-let args ((parent-group :parent-group (quote guix)) (parent-faces-group :parent-faces-group (quote guix-faces)) (group-doc :group-doc (format "Settings for '%s' buffers." type-str)) (faces-group-doc :faces-group-doc (format "Faces for '%s' buffers." type-str))) (list (quote progn) (list (quote defgroup) group nil group-doc (quote :group) (list (quote quote) parent-group)) (list (quote defgroup) faces-group nil faces-group-doc (quote :group) (list (quote quote) group) (quote :group) (list (quote quote) parent-faces-group))))) (closure (cl-struct-guix-buffer-item-tags t) (type &rest args) "Define `guix-TYPE' and `guix-TYPE-faces' custom groups.\nRemaining arguments (ARGS) should have a form [KEYWORD VALUE] ...\n\nOptional keywords:\n\n - `:parent-group' - name of a parent custom group.\n\n - `:parent-faces-group' - name of a parent custom faces group.\n\n - `:group-doc' - docstring of a `guix-TYPE' group.\n\n - `:faces-group-doc' - docstring of a `guix-TYPE-faces' group." (let* ((type-str (symbol-name type)) (prefix (concat "guix-" type-str)) (group (intern prefix)) (faces-group (intern (concat prefix "-faces")))) (guix-keyword-args-let args ((parent-group :parent-group (quote guix)) (parent-faces-group :parent-faces-group (quote guix-faces)) (group-doc :group-doc (format "Settings for '%s' buffers." type-str)) (faces-group-doc :faces-group-doc (format "Faces for '%s' buffers." type-str))) (list (quote progn) (list (quote defgroup) group nil group-doc (quote :group) (list (quote quote) parent-group)) (list (quote defgroup) faces-group nil faces-group-doc (quote :group) (list (quote quote) group) (quote :group) (list (quote quote) parent-faces-group))))))(hydra) (guix-define-groups hydra) eval-buffer(#<buffer *load*-445999> nil "/home/ludo/src/guix/emacs/guix-hydra.el" nil t) ; Reading at buffer position 1078 load-with-code-conversion("/home/ludo/src/guix/emacs/guix-hydra.el" "/home/ludo/src/guix/emacs/guix-hydra.el" nil t) require(guix-hydra) eval-buffer(#<buffer *load*> nil "/home/ludo/src/guix/emacs/guix-hydra-build.el" nil t) ; Reading at buffer position 1035 load-with-code-conversion("/home/ludo/src/guix/emacs/guix-hydra-build.el" "/home/ludo/src/guix/emacs/guix-hydra-build.el" nil t) autoload-do-load((autoload "guix-hydra-build" "Display latest NUMBER of Hydra builds.\nARGS are the same arguments as for `guix-hydra-build-latest-api-url'.\nInteractively, prompt for NUMBER. With prefix argument, prompt\nfor all ARGS.\n\n(fn NUMBER &rest ARGS)" t nil) guix-hydra-latest-builds) command-execute(guix-hydra-latest-builds record) execute-extended-command(nil "guix-hydra-latest-builds") call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command)
This paste has no annotations.