This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
CL-USER> (ql:quickload :hunchentoot) | |
To load "hunchentoot": | |
Load 1 ASDF system: | |
hunchentoot | |
; Loading "hunchentoot" | |
/bin/sh: 1: Syntax error: ")" unexpected |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
CL-USER> (ql:quickload :clx) | |
To load "clx": | |
Load 1 ASDF system: | |
clx | |
; Loading "clx" | |
.../bin/sh: 1: fd: not found | |
/bin/sh: 1: Syntax error: ")" unexpected | |
; | |
; caught ERROR: | |
; READ error during COMPILE-FILE: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
CL-USER> (ql:quickload :esrap) | |
To load "esrap": | |
Load 1 ASDF system: | |
esrap | |
; Loading "esrap" | |
[package esrap] | |
; file: /home/alaa/quicklisp/dists/quicklisp/software/esrap-20220331-git/src/package.lisp | |
; in: DEFPACKAGE #:ESRAP | |
; (DEFPACKAGE #:ESRAP |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Guide | |
# Configure the essential configurations below and do the following: | |
# | |
# Repository Creation: | |
# cap deploy:repository:create | |
# git add . | |
# git commit -am "initial commit" | |
# git push origin master | |
# | |
# Initial Deployment: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env bash | |
# Configuration | |
SERVER='myserver' | |
DEPLOY_TO='/path/to/app' | |
EXCLUDE='*.swp .git/ db/sphinx/ tmp/ log/' | |
DRY_RUN=false | |
DEPLOY_GEM_PATH='/opt/ec/ruby/1.8.7/lib/ruby/gems/1.8' | |
# To improve ssh performance, consider reusing connections: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun make-upload-filename () | |
(etypecase *upload-filename-generator* | |
;; the old behaviour. | |
(null t) | |
;; the new behaviour. | |
((or symbol function) | |
(lambda (&rest args) | |
(let ((filename (apply *upload-filename-generator* args))) | |
(when *file-upload-hook* | |
(funcall *file-upload-hook* filename)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; original implementation | |
;; hunchentoot;utils.lisp | |
;; | |
(let ((counter 0)) | |
(declare (ignorable counter)) | |
(defun make-tmp-file-name (&optional (prefix "hunchentoot")) | |
"Generates a unique name for a temporary file. This function is | |
called from the RFC2388 library when a file is uploaded." | |
(let ((tmp-file-name | |
#+:allegro |