Index: oct.asd
===================================================================
--- oct.asd	(revision 1efd5f22d66198240c6952ab8b59b0d5436e8519)
+++ oct.asd	(revision 405df618a38d3b8ddaae691f865bbf068e931ac5)
@@ -53,5 +53,5 @@
    (:file "qd-class"
 	  :depends-on ("qd-fun"))
-   (:file "qd-const2" :depends-on ("qd-class"))
+   (:file "qd-const2" :depends-on ("qd-class" "qd-const"))
    (:file "qd-methods"
 	  :depends-on ("qd-class"))
Index: qd-const.lisp
===================================================================
--- qd-const.lisp	(revision 8ca031aa54e9d596fbda6e31be09bc4fec9e36d4)
+++ qd-const.lisp	(revision 405df618a38d3b8ddaae691f865bbf068e931ac5)
@@ -3753,4 +3753,13 @@
    "A table of cos(k/1024) for k = 1 to 256")
 
+(defconstant +qd-%gamma+
+  (multiple-value-bind (q0 q1 q2 q3)
+      (renorm-5 (scale-float (float 5199096506725913 1.0d0) -53)
+		(scale-float (float -6416270704492459 1.0d0) -110)
+		(scale-float (float -5430032177773649 1.0d0) -164)
+		(scale-float (float 7163319935831933 1.0d0) -218)
+		(scale-float (float -6507777405222912 1.0d0) -273))
+    (%make-qd-d q0 q1 q2 q3))
+  "Quad-double value of Euler's constant")
 
 #||
Index: qd-const2.lisp
===================================================================
--- qd-const2.lisp	(revision d2650578689f51edbdc8f0c588fcf330134490c6)
+++ qd-const2.lisp	(revision 405df618a38d3b8ddaae691f865bbf068e931ac5)
@@ -83,2 +83,6 @@
   (make-instance 'qd-real :value (make-qd-d 1d0))
   "QD-REAL representation of 1")
+
+(defconstant +%gamma+
+  (make-instance 'qd-real :value octi::+qd-%gamma+)
+  "Euler's constant")